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Usare il sistema operativo 


II. MURO 

Il sistema operativo CP/M è stato progettato per 
rendere semplice l’uso di un microcomputer. 
Questo libro vi tenderà semplice l'uso del CP/M 
(l e versioni esaminate del Cl’/M sono il CP/M 


CP/M 



1.4-il CP/M 2.2. e il nuovo sistema operativo 
multiutente MP/M) La maggior parte di utenti di 
microcomputer dovrà, infatti, un giorno o l’altro, 
fare ricorso al CP/M. disponibile su quasi tutti i 
computer basati sui microprocessori 8080 e Z80, 
come pure su certi sistemi utilizzanti il 6502. Il 
libro, senza presupporre alcuna conoscenza di un 
calcolatore, inizia con la descrizione, passo-passo 
delle procedure di intzializzazione del sistema: 
accensione, inserimento dei dischetti, esecuzione 
delle più comuni operazioni su file, compresa la 
duplicazione dei dischetti. Prosegue con il PIP 
(programma di trasferimento dei file), il DD I 
(programma di messa a punto) e ED (programma 
editor). Per entrare sempre più, fornendo 
numerosi consigli pratici, all’interno del CP/M c 
delle sue operazioni, al fine di comprenderne 
appieno le risorse ed eventualmente dare gli 
strumenti per successive modifiche. 


SOMMARIO 

Introduzione al CP/M e alI’MP/M-Le 
caratteristiche del CP/M e dell’MP/M-Gestione 
dei file con PIP-L’uso dell’editor-Dentro al CP/M 
e all’MP/M-Guida di riferimento ai comandi e ai 
programmi del CP/M e dell’MP/M-Consigli 
pratici-II futuro-messaggi comuni di errore-tabella 
di controllo di ED-nomi dei dispositivi di PIP- 
riassunti dei comandi-parole chiave di PIP- 
parametri di PIP-tasti di controllo per la 
digitazione dei comandi-tipi di estensione-lista dei 
materiali-organizzazione della stanza del 
calcolatore-verifiche in caso di errore-regole di 
base per la localizzazione dei guasti. 
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un nuovo corso 

per imparare 
a dialogare con il 

personal computer 



Il personal computer: un protagonista 


Il computer è figlio dell’informatica, la scienza degli anni ’80, 
che sta rivoluzionando il mondo della produzione e, in un futu¬ 
ro non molto remoto, trasformerà radicalmente la qualità della 
nostra vita. 

I computers sono ormai pronti a lavorare per noi: ora siamo noi 
che dobbiamo imparare a comunicare con loro, per metterli in 
grado, con le nostre istruzioni, di fornirci il maggior numero di 
prestazioni e al più elevato livello. 

È in quest’ottica che INFOR ha messo a punto il suo corso di in¬ 
formatica di base programmato per l’insegnamento a distanza, 
che rappresenta lo strumento più perfezionato oggi reperibile per 
chi vuole trattare da pari a pari con il proprio elaboratore. 


Un corso per tutti 


Questo corso teorico-pratico è indispensabile per chiunque, già 
inserito nel mondo o nel mercato del lavoro, desideri accostarsi 
all’informatica per migliorar^ le proprie capacità produttive. E 
anche per i giovani che vogliono inserirsi in questo nuovo mondo. 

La gestione deLcomputer ; il linguaggio BASIC 

Il corso è facilmente comprensibile a chi si avvicina per la prima vol¬ 
ta all’informatica: ne insegna l’abc con un linguaggio semplice e pia¬ 
no, e mettendo fin dalla prima lezione l’utente a contatto diretto 
con il personal, in poche settimane e gli insegna, comodamente a ca¬ 
sa, a farlo funzionare a programmarlo in BASIC. A fine corso IN- 
FOR rilascia un attestato a conferma della preparazione raggiunta. 


Altre 7 proposte INFOR: Giornalista, Fotografo, 
Interprete, Grafico pubblicitario, Tecnico pubbli¬ 
citario, Programmista radio-TV, Audiovisivi. 


M AZIONI URGENTI: 
TEL. 06 62.30.341 



ISTITUTO SUPERIORE PER LA 
COMUNICAZIONE E L'INFORMAZIONE 


INFOR Via G.V. Englen, 25 /t 00163 Roma — 

| Desidero ricevere informazioni sul vostro corso _ | 

Vc^e _I_I_I_IJ_I_1_I_I_I-1 Nome_I_I_IJ_I_I_I_I_ì_I_I E,à J J | 

CMD Prn , p „ innp J J_| |_j |_|_J_|_|_| I I I UJJJJJJnJJJ" 

CAP _|_|_|_|_| Pio. _I_| | 

i ì-tUÌtìi 



Città 

Motivo della richiesta Q studio 


EH lavoro 


EH hobby 


Se risiedi in Svizzera, scrivi direttamente a: IBERCULTURA GmbH, Baselstrasse 67 - 6003 Luzern - Tel. 041/226.617 
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In copertina: il personal in cattedra. 
Una rappresentazione fantasiosa per 
un numero dedicato aH'intelligenza ar¬ 
tificiale. 


ARTICOLI 


Conversione di programmi per ZX81 e ZX80 
nuova ROM 2°. 

Introduzione alla intelligenza artificiale 1“. 

I programmi di simulazione. 

Giochi di inseguimento. 

Area per linguaggio macchina nel BASIC ZX81 
Accesso per chiave logica ad un archivio “relative” 
Dedalo 3-1). 

II taglio del TI99/4A. 


.. Bruno Del Medico.... 

13 

.. Bruno Del Medico.... 

. 22 

. Francesco Sardo.... 

40 

... Marcello Morchio.... 

44 

. Michele Petraccone.... 

46 

. Gioie Confortini ... 

48 

... Alessandro Guida.... 

54 

.. Alessandro Chessa.... 

56 


RUBRICHE 


Editoriale 

Il Grimaldello elettronico. Riccardo Paolillo 

Posta. 

I segreti del personal 

RESTORE nn per il VIC 20. Alessandro Guida. 

Un overlay più flessibile. Attilio Zannoni. 

Risparmiamo memoria. Bruno Del Medico. 

Conversioni 

Musica con T199/4A. 

Labirinto per Spectrum. 

Rally per Z.X81. 

Project-Robot. 

Contributi dei lettori 

Rotazione bidirezionale sul video dello ZX81. 

Operatori logici per TF99/4A. 

Debug 

Guida e cacciatore. 

Sistemi ridotti per il Totocalcio per C 64. 

Piccoli Annunci 
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GUIDA 


. ZX 80, ZX81 

ZX80. ZX81, ZX Spectrum 

. ZX81 
. ZX81 
. tutti 
. VIC 20 
. TI 99/4A 


VIC 20 
PET/CBM 

ZX 81. ZX Spectrum 

TI99/4A 
ZX Spectrum 
ZX 81 
VIC 20 


In questa guida sono riportati i 
personal computer e i micropro¬ 
cessori di cui si parla negli articoli 
e nelle rubriche. 
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IL LIBRO 

Questa guida, con chiarezza, semplicità 
espositiva e ricchezza di esemplificazioni, 
risulta un vero e proprio strumento 
operativo per tutti coloro che vogliono 
avvicinarsi all’informatica in generale, e 
imparare la programmazione in BASIC, in 
particolare travalicando i tre calcolatori 
(ZX81, ZX80, ZX80 nuova ROM) a cui fa 
riferimento. Partendo da quello che è un 
computer, il lettore impara nei primi sei capitoli 
a programmare in BASIC, spingendosi, per chi 
lo vuole, oltre, sino alla programmazione in 
linguaggio macchina. L’ultimo capitolo riporta 
parecchi programmi e per ciascuno, vengono 
fornite, dove possibile, le diverse versioni. Tra 
l’altro si parlerà di file e di animazione delle figure. 

Per finire ben otto Appendici, essenziali ed 
utilissime, tra cui spiccano per interesse le due 
dedicate ai sistemi operativi dello ZX80, ZX80 nuova 
ROM e ZX81. 

SOMMARIO 

Introduzione - Il calcolatore - Installazione del calcolatore 
- La programmazione - Il linguaggio BASIC - Come 
operare - Utilizzo della memoria - Linguaggio macchina - 
Esempi di programmi — caratteri del sistema - variabili del 
sistema - scheda BASIC ZX80 - scheda BASIC ZX80 nuova 
ROM e ZX81 - errori segnalati dalla macchina - sistema 
operativo dello ZX80 - sistema operativo dello ZX81 e nuova ROM 
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EDITORIALE 


Il Grimaldello elettronico 

Riccardo Paolillo 


Siamo abituati a non stupirci più per ciò che accade 
nel magico mondo dell’informatica, eppure confesso di 
essere rimasto alquanto perplesso leggendo poche setti¬ 
mane fa il resoconto, riportato con un certo rilievo da 
un importante quotidiano, deH’“impresa” riuscita ad al¬ 
cuni ragazzi americani. 

Si raccontava della vicenda di 12 ragazzi di Milwau¬ 
kee, tutti tra i 15 e i 22 anni, che venuti a conoscenza 
chissà come degli opportuni codici di accesso, avevano 
utilizzato i loro personal per scorrazzare negli archivi 
magnetici di un laboratorio di ricerche sulle armi nu¬ 
cleari, di una banca e di una scuola, provocando, pare, 
anche alcuni danni. 

La notizia, di per sé non sconvolgente anche perché 
il taglio dell’articolo lasciava intravedere la possibilità 
che un fatto certamente vero fosse stato esposto in ma¬ 
niera alquanto colorita a beneficio del grande pubblico, 
mi ha tuttavia spinto a qualche considerazione. 

La situazione attuale della nostra telematica, non 
certo orientata ad un coinvolgimento a livello “perso¬ 
nal”, rende estremamente lontani da noi e poco proba¬ 
bili episodi come questo. Questa situazione, se da un 
lato penalizza gli utenti dell’informatica personale in 
quanto li priva della tanto sognata possibilità di colle¬ 
garsi con il proprio personal a banche di software me¬ 
diante un semplice accoppiatore acustico, dall’altro li 
costringe a realizzare i propri programmi e diventare 


quindi degli esperti nella affascinante arte della pro¬ 
grammazione. 

Quale è il futuro (prossimo) da augurarsi per l’infor¬ 
matica personale? Come tutte le cose, nella ricerca di 
uno sfruttamento equilibrato ed intelligente di tutte le 
possibilità che ci verranno offerte. 

Quindi sì (eccome!) alla nascita e sviluppo di archivi 
software accessibili via rete telefonica, ma tenendo 
sempre presente che il nostro personal oltre a fungere 
da terminale per l’interscambio di programmi (soprat¬ 
tutto giochi) e da videogame per il loro utilizzo, sarà 
pur sempre un calcolatore sul quale sviluppare idee 
“personali” sempre nuove. 

Con questo discorso, voglio ribadire un concetto per 
noi molto importante, che ci guida nella redazione di 
ogni numero della rivista. Accanto ad un certo numero 
di programmi pronti che appagano quanti vogliono 
“vedere subito qualcosa”, cerchiamo di proporvi degli 
strumenti software (tool), sia programmi di utilità che 
informazioni descrittive, con lo scopo di stimolarvi a 
cercare nuovi campi di utilizzo per il vostro personal. 

In questo numero troverete, a grande richiesta, pa¬ 
recchi programmi per le macchine più popolari, le 
rubriche sempre più interessanti, grazie ai vostri contri¬ 
buti, e numerosi articoli per tutti i gusti, tra cui vi 
segnalo la seconda puntata sulla conversione al BASIC 
dello ZX 81 di B. Del Medico e due articoli che sicura¬ 
mente vi avvinceranno: Il taglio del TI99/4A di A. 
Chessa (ma è interessante per tutti) che vi introdurrà 
all’affascinante mondo dei giochi di strategia, e i pro¬ 
grammi di simulazione di F. Sardo che vi illustrerà in 
modo sintetico ma rigoroso un utilizzo finora poco fre¬ 
quentato dei personal. 
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E ADESSO CHE ESPORTO 
CAPPELLINI GIALLI, CALZONCINI 
VERDI E MAGLIETTE ROSSE, 

CHI MI AIUTERÀ'A TINGERE DI ROSA 
IL FUTURO DELL'AZIENDA? 


IL PERSONAL COMPUTER IBM 
IL TUO PICCOLO GRANDE AMICO. 


Le statistiche di mercato possono fare mol¬ 
to per il futuro della tua azienda. A patto 
che siano precise, aggiornate e conformi al¬ 
le tue esigenze. Devi poter leggere tra le li¬ 
die, insomma. E con il video a colori del 
Personal Computer IBM potrai affrontare i 
tuoi problemi, vedendo sempre chiaro an¬ 
che nei dati più oscuri. Ma non solo. Il Per¬ 
sonal Computer IBM può aiutarti a fare di 


tutto perchè riceve dati, analizza, calcola, 
registra, stampa e, grazie alla sua potente 
memoria e ai minidischi, ti consente di ar¬ 
chiviare un’infinità di informazioni. Ogni 
cosa sarà più semplice con un amico così. 
Vuoi metterlo alla prova? 

Vai da un concessionario IBM. Scegli quel¬ 
lo che ti è più comodo, nell’elenco della pa¬ 
gina che segue. 



Il Personal Computer IBM contiene un microprocessore a 16 bit e una memoria di 
utilizzo che raggiunge i 640 Kbyte, e può essere dotato di un video a colori e di un co- 
processore matematico. E, grazie ai dischi fissi, la capacità massima di memoria del 
sistema è di 21 Mbyte in linea. Inoltre, puoi facilmente collegarti con un altro Perso¬ 
nal Computer IBM, con elaboratori più potenti e con la rete dei Centri Servizi Elabo¬ 
razione Dati della IBM. 

Sistemi operativi: DOS 1 - DOS 2 - UCSD - CP/M-86. Supporti per le comunicazio¬ 
ni: Asincrone - SDLC - BSC - Emulazione: 3101-3270. Linguaggi: tutti i principali e 
in più l’APL. Programmi applicativi per: aziende e servizi - produttività individuale - 
ufficio moderno - calcolo tecnico e scientifico - applicazioni professionali - didattica. 


GGK 









POSTA 


Richieste Spectrum 

Spettabile Redazione, 
sono un vostro lettore da Giugno, e 
cioè da quando ho comprato uno 
ZX Spectrum (con il quale mi trovo 
molto bene). 

Vorrei a questo punto porvi delle 
domande: 

- pubblicherete un servizio per im¬ 
parare a programmare in linguag¬ 
gio macchina sullo ZX Spectrum? 

- Potreste cercare di dedicare uno 
spazio maggiore allo Spectrum 
anziché ad altri personal meno 
diffusi? 

- Potreste pubblicare il programma 
“Collisione” (del numero 3) con¬ 
vertito per lo Spectrum? 

Distinti saluti. 

Riccardo Nicoletti 
Firenze 

Col prossimo numero, prenderà il 
via una serie di articoli dedicati pro¬ 
prio alla programmazione in lin¬ 
guaggio macchina. In tal modo spe¬ 
riamo di soddisfare anche le richieste 
di molti altri che ci hanno più volte 
invitato ad occuparci dell’argomen¬ 
to. Come è ormai nostra consuetudi¬ 
ne, abbiamo scelto un approccio 
molto semplificato a beneficio dei 
meno esperti. 

Per quanto riguarda la seconda ri¬ 
chiesta, ne prendiamo nota, ma fac¬ 
ciamo benevolmente osservare che 
sono tantissime le lettere che giungo¬ 
no in Redazione del tipo: perché al 
mio personal zy che è tanto diffuso 
dedicate così poco spazio, mentre 
pubblicate tanti programmi per yz 
che invece non compra nessuno? E 
chiaro che molto spesso le valutazio¬ 
ni sulle percentuali di diffusione dei 
personal “rivali” sono quantomeno 
discutibili e magari dettate da un po’ 
di comprensibile “partigianeria”. 
Inoltre occorre tener conto del fatto 
che i contributi che riceviamo non 
hanno tutti lo stesso livello qualitati¬ 
vo e di interesse. A questo proposito, 
rinnoviamo a tutti l’invito a collabo¬ 
rare, ma tenendo sempre presente gli 
indispensabili requisiti di originalità 


e interesse per un vasto pubblico, che 
ogni lavoro deve necessariamente 
avere per poter essere pubblicato. 
Per coloro che ritengono di avere 
qualche idea interessante, è disponi¬ 
bile l’ultima edizione della Guida agli 
autori. 

Per quanto riguarda, infine, la 
conversione di “Collisione” rilancia¬ 
mo la richiesta ai molti Sinclairisti. 


Un simbolo misterioso 

Egregia Redazione, 
mi riferisco all’articolo “Program¬ 
mare grafici con il TI99/4A” pubbli¬ 
cato nel n. 8-9. Orbene il passo 1290 
è il seguente: 1290 H = H + VAL 
(SEG$ (A$, Z, 1» * 2f (LEN* 
(A$) - 2). Quella freccetta che cosa 
significa? 

Sul mio TI non esiste, ho tentato 
con tutti i tasti, e con il tasto “func- 
tion”, ma la freccetta non è uscita 
fuori: è il mio computer guasto o è 
una bizzarria dell’autore? Ho notato 
comunque che la freccia ricompare 
anche dopo, quindi cosa devo fare? 
Grazie in anticipo. 

Enrico Ferrari 
Roma 

Rassicuriamo subito il nostro letto¬ 
re che il suo personal funziona per¬ 
fettamente. In effetti la misteriosa 
freccetta altro non è che il simbolo di 
elevazione a potenza, operazione 
che nel TI viene eseguita mediante la 
digitazione del tasto A (SHIFT-6). 


Quando il BASIC 
non è standard 

Speri.le Redazione, 
ho tentato di convertire il vostro 
“gioco del calcio” scritto per PET/ 
CBM sul mio Spectrum. Dopo una 
faticaccia, peraltro stupida dovuta al 
fatto che sono un novizio, il pro¬ 
gramma non gira. E non poteva es¬ 
sere altrimenti non conoscendo cosa 
c’è nelle locazioni di memoria (quei 
maledetti CHR$ (...)) del PET. 


Dal risultato, ovviamente, viene 
fuori che ci sono cose diverse. 

Perché non create voi una rubrica 
in cui si riportano tutti i contenuti 
delle locazioni di memoria dei diver¬ 
si home computer? 

Da parte nostra la cosa è molto 
difficile, perché chi compra un 
home computer, non può spendere 
altri soldi per comperare altri perso¬ 
nal solo per avere il manuale che gli 
spieghi (quelli che lo fanno) cosa c’è 
in memoria. 

Matteo Mariani 
Roma 


Il problema della mancanza di 
compatibilità tra i vari personal 
costituisce uno dei maggiori motivi 
di malcontento, soprattutto per i 
principianti, e le osservazioni del 
Sig. Mariani sono infatti condivise in 
numerose lettere di altri lettori. Per 
tutti cerchiamo di chiarire la nostra 
posizione e le nostre intenzioni. I 
personal attualmente sul mercato so¬ 
no caratterizzati da prestazioni e 
prezzi sensibilmente differenti, a se¬ 
conda delle possibilità offerte e que¬ 
sto fatto, peraltro ovvio, determina 
già una prima discriminazione dal 
punto di vista hardware. A questo 
bisogna aggiungere il fatto che, es¬ 
sendo il BASIC un linguaggio non 
codificato da nessuno standard uffi¬ 
ciale (come invece ad esempio il 
FORTRAN o il COBOL), ogni co¬ 
struttore ha utilizzato proprie istru¬ 
zioni per rendere accessibili all’uten¬ 
te le funzioni meno usuali (grafica, 
colore, suono). 

Infine bisogna tener conto che 
vengono utilizzati diversi micropro¬ 
cessori con architetture hardware 
completamente differenti e quindi 
ovviamente le locazioni di memoria 
dei vari sistemi non possono essere 
fisse. 

Quindi, accertato che in molti ca¬ 
si, per accedere a determinate fun¬ 
zionalità è necessario scrivere pro¬ 
grammi comprendenti istruzioni del 
tipo PEEK, POKE o PRINT CHRS 
che si riferiscono a ben precise loca¬ 
zioni di memoria, si possono tuttavia 
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ECCO CHI TI AIUTERÀ'AD ANDARE D'AMORE E D'ACCORDO 

CON IL TUO NUOVO AMICO. 

D tuo concessionario IBM. Ti aiuterà a ottenere il massimo dal tuo Personal Computer 
IBM. Ti garantirà un’assistenza puntuale e un servizio all’altezza del nome IBM, che in tut¬ 
to il mondo significa efficienza e affidabilità. Per una lunga e proficua amicizia fra te e il tuo 
Personal Computer IBM. Per acquisti superiori alle 20 unità puoi anche rivolgerti alle filiali 
IBM. E per ulteriori informazioni su eventuali punti di vendita che non compaiono 
sull’elenco, telefona a: 02/2172360 oppure 06/54864962. 
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BASILICATA 
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Napoli - POINTER SISTEMI SRL - Via A. De Gaaperi, 45 
Tel. 081.312312 

Salerno - OMNIA SRL - C.so Garibaldi, 47 - Tel. 089.220366 
S. Maria Capuavetere - GENERAL SYSTEMS SRL - 
Via Unità d’Italia, 21/23 - Tel. 0823.811100 

EMILIA 

Bologna 

ABACO SAS - Via Bernini, 1 - Tel. 051.393274 
CMB INFORMATICA SCRL - Va Arcoveggio, 74/10 - 
Te). 051.323594 
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Ferrara - MARKITALIA COMPUTERS SRL - 
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Tel. 0522.94230 

Rimini - HARD & SOFT SYSTEMS SRL - Va Valturio, 43 
Tel. 0541.773343 

LAZIO 

Froainone - SA1U ELETTRONICA SRL - 
Va Vado del Tufo, 85 - Tel. 0775.83093 

Roma 

CERVED SPA - Via Appia Nuova, 696 - Tel. 06.7940241 
DATAOFFICE SPA - Via Sicilia, 205 - Tel. 06.4754568 
ELEDRA 3S SPA - Va G. Valmarana, 63 - Tri. 06.8127324 
GEDIN SRL - L.go D. De Dominicis, 7 - Tel. 06.432183 
I.S.E.D. SPA - Va Tiburtina, 1236 - Tel. 06.4125851 
JACOROSSI SPA - Via V. Brancati, 64 - Tel. 06.50091016 
MEMORY COMPUTER SRL - Va Aureliana, 39 - 
Tel. 06.804592/4755736 

NIC A DIFF INF SRL - V.le Paridi, 40 - Tel. 06.872603 
SAPES SRL - V.le Tito Livio, 12 - Tel. 06.3453536 
VALDE ADEL SRL - P.zza S. Anastasia, 3 - Tel. 06.6786663 
Viterbo - ITALBYTE SRL - Vie Trento - Pai. Garbini - 
Tel. 0761.221333 

LIGURIA 

Genova - DIFF.EL. SRL - Via XX Settembre, 31/4 - 
Te). 010.586238 

LOMBARDIA 

Albino - NUOVA INFORMATICA SAS - 
Va Provinciale, 86 Comenduno - Tel. 035.751784 
Assago - TRANSDATA SRL - Mi Fiori Pai. E3 Str. 1 - 
Tel. 02.8242460 

Bergamo - SELTERING SPA - Via Verdi, 31 - 
Tel. 035.248256 

Brescia 

FIN-ECO SERVICE SRL - Va Pastrengo, 5 - Tel. 030.59055 
MICROSELT SRL - Via Cipro, 33 - Tel. 030.224246 
SELTERING SPA - Va Cipro, 33 - Tel. 030.220391 


Como - BRUNO SRL - Via Rubini, 5 - Tel. 031.260538 
Lecco - ZECCA UFFICIO SPA - Viale Dante, 14 - 
Tel. 0341.373291 

Lodi - ZUCCHETTI SPA - C.so Mazzini, 39 - 
Tel. 0371.54827 

Milano 

AMUFFICIO SAS - Va Desenzano, 7 - Tel. 02.4080275 

B. O.M. SAS - V.le Tunisia, 50 - Te). 02.6598076 

C. S.A. COMM. SRL - Va Farmi, 82 - Tel. 02.6888433 
DATA OPTIMATION SRL - Via Masaccio, 12 - 

Tel. 02.4987876 

ECS ITALIA SRL - C.so Monforte, 15 - Tel. 02.780213 
EDELEKTRON SRL - C.so Sempione, 39 - Tel. 02.3493603 
ELEDRA 3S SPA - Vale Elvezia, 18 - Tel. 02.349751 
GENERAL ELECTRIC INFORMATION SERVICES SPA V.le 
Regina Giovanna, 29 - Tel. 02.2870181 
HOMIC PERSONAL COMPUTER SRL - 
Piazza De Angeli, 3 - Tel. 02.4988201 
HUGNOT LUIGI LUCIANO - Va De Togni, 10 - 
Tel. 02.873190 

IL NUOVO UFFICIO SISTEMI SNC - Via Priv. del Don, 2 - 
Tel. 02.8350870 

MICROTECH SRL - Va Fili Bronzetti, 20 - Tel. 02.733609 

SIRIO SHOP SRL - Vale Certosa, 148 - Tel. 3010051 

SOFTEC SRL - Viale Maino, 10 - Tel. 02. 7491196 

STUDIO DI INFORMATICA S.D.I. SPA - 

Via G. Winckelmann, 1 - Tel. 02.4223305 

Monza - EDICONSULT SRL - Via Rosmini, 3 - 

Tel 039 389850 

Pavia - Ì.T.C. INFORMATICA SRL - Strada Nuova, 86 - 
Tel. 0382.303201 

S. Antonio Mantov. ANTEK COMPUTER SAS - 
Via Manzoni, 49 - Tri. 0376.398759 
Sondrio - G.P.D. SRL OFF AUTOM - Vie N. Sauro, 28 - 
Tel. 0342.218561 

Varese 

ELMEC SPA - Via Sebenico, 12 - Tel. 0332.264135 

VEGA SPA - Via Silvestro Sanvito, 103 - Tel. 0332.229374 

Vigevano - LOGICA INFORMATICA SRL - 

Via Montegrappa, 32 - Tel. 0381.81888 

Vimercate - DATA PROGRES SRL - Va V. Emanuele, 44/A 

Tel. 039.667423 

Vimodrone - OMEGA DATA SRL - 
Strada Padana Sup., 317 - Tri. 02. 2504121 

MARCHE 

Moie - S E.D A. SPA - P.zza S. Maria - Tel. 0731.70345/7603 
Pesaro - COMPUTER & OFFICE SRL - Va Mazzini, 73 - 
Tel. 0721.64170 

PIEMONTE 

Alessandria - INFORMATICA SERVICE SRL - 

Via Isonzo, 63 - Tel. 0131.445817 

Asti - HASTA DATI SNC - Va Silvio Morando, 6/A - 

Tel. 0141.216356 

Biella 

TEOREMA SRL - Via Losana, 9 - Tel. 015.24915 
VI P. COMPUTERS SRL - Va Repubblica, 39 - 
Tel. 015.27106 

Borgosesia - I.D.S. INF. DATA SYST. SRL - 

Viale Varai lo, 157 - Tel. 0163.25327 

Cuneo - SISTEMI SRL - Via Giolitti, 26 - Tel. 0171.55475 

Genola - EUROSISTEMI SPA - Bivio S.S. 20/28 - 

Tel. 0172.68176 

Torino 

DIVERSIFICATE VENCO SRL - C.so Matteotti, 32A - 
Tel. 011.545525 

PROGRAMMA SPA - C.so Svizzera, 185 - Tel. 011.746421 
SISTEMI SPA - C.so Peschiera, 249 - Tel. 011.3358676 
SOFTEC SRL - C.so San Maurizio, 79 - Tel. 011.8396444 
Vercelli - ANALOG SNC - Va Dionisotti, 18 - Tel. 0161.61105 

PUGLIE 

Bari - PASED SRL - Va Calefati, 134/136 - Tel. 080.481488 
Foggia - MASELLI PER L’UFFICIO - Va L. Zuppetta, 355A 
Tel. 0881.78014 

Lecce - I.P.E.S. SPA - Va Oberdan, 29 - Tel. 0832.33904 
Maglie - S.V.I.C. SRL - Va V. Emanuele, 121 - Tel. 0836.21604 

SARDEGNA 

Cagliari - C.D S. SAS - Va Sonnino. 108 - Tel. 070.650756 


SICILIA 

Catania 

ASIA COMPUTER SRL - Via S. Eupilio, 13 - 
Tel. 095.326944 

COMPUTER SYSTEMS SRL - Va Ruggero di Lauria, 87 - 
Tri. 095.493777 

Messina - SICIL FORNITURE SPA - Via Don Blasco, 75 
Tel. 090.2923987 

Palermo 

SER.COM. ITALIA SRL - Va Sciuti, 180 - Tel. 091.261041 
SI.PR.EL. SRL - Va Serradifalco, 145 - Tel. 091.577344 
TESI SRL - Va E. Notarbartolo, 23 - Tel. 091,260549 
Tapani - TESI SRL - Via Palmiero Abate, 2 - 
Tel. 0923.20026 

TOSCANA 

Empoli - SESA DISTRIBUZIONE SRL - 
Va XI Febbraio, 24/B - Tri. 0571.72148 
Firenze 

DATA COOP SCRL - Via di Novoli, 23/H - Tel. 055.416787 
SESA DISTRIBUZIONE SRL - Lungarno Ferrucci, 19R - 
Tel. 055.6811652 

Prato - C.C.S. SAS - Vale Repubblica, 298 - Tel. 0574.580222 
Siena - SILOG SRL - Via Sicilia, 5 - Beiverde - 
Tel. 0577.54085 

Viareggio - DELPHI SRL - Va Aurelia Sud, 39 - 
Tel. 0584.31881 

TRIVENETO 

Bassano D/Grappa - C.P.E. - Piazzetta Poste, 9 - 
Tel. 0424.20395 

Belluno - SCP. COMP. SYST. SRL - Va Feltre, 32 - 
Tel, 0437.70826 

Bolzano - BOPAM SAS - Via C. Battisti, 32 - Tel. 0471.30113 
Castelfranco Ven. - EDS SRL - Via S. Pio X, 154 - 
Tel. 0423.490178 
Padova 

CERVED ENGINEERING SPA - C.so Stati Uniti, 14 - 
Tel. 049.760733 

S.I.C. ITALIA SRL - Via Fistomba, 8 - Tel. 049.45555 
SYSTEM ROS SAS - P.zza De Gasperi, 14 - Tel. 049.38412 
SO.GE.DA. SPA - Va Marsala, 29 - Tri. 049.655385/657386 
S. Donà di Piave - COMPUTIME SRL - Piazza Rizzo, 63 
Tel. 0421.2548 
Trento 

SEDA SAS - Via Sighere, 7/1 - Tel. 0461.984564 
SiGe SNC - COMPUTER SHOP - Va Prato, 22 - 
Tel. 0461.25154 

Treviso - INFORMATICA TRE SRL 
Viale della Repubblica, 19 - Tel. 0422.65993 
Trieste - DITTA MURRI - Via A. Diaz, 24/A - 
Tel. 040.733253 
Udine 

D.E.U. SRL - Va Di Prampero, 3/7 - Tel. 0432.204402 

D.E.U. SRL - Va Tavagnacco, 89 - Tel. 0432.482086 

Verona 

PRAGMA SOFTWARE SRL - Via Carmelitani Scalzi, 20 - 
Tel. 045.24629 

SEVER DI G. SERENI - Via Locatelli, 10 - Tel. 045.31331 
Vicenza - ALFA DATA SRL - Va Milano, 110 - 
Tel. 0444.31865 

UMBRIA 

Perugia - PUCCIUFFICIO SNC - Va XX Settembre, 148/C 
Tel. 075.72992 

Terni - DPS SRL - Via Pacinotti, 6 - Tal, 0744.58247 

VALDAOSTA 

Aosta 

INFORMATIQUE SAS - Av. Du Cona. De Commis, 16 - 
Tel. 0165.2242 
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Servizio programmi 


Per alcuni dei programmi pubblicati, Personal Software mette a disposizione dischi e 
nastri già registrati, realizzati in collaborazione con l'autore. Potete ottenerli in contras- 
segno, pagando direttamente al postino la cifra indicata, spedendo il tagliando pubbli¬ 
cato in fondo alla pagina. 


N. 

Sistema 

Programmi 

Supporto 

pubblicato in 

Personal Software n. 

Prezzo 

1 

Apple 11 + 

La carta del cielo 

Collisione 

floppy 5" 

DOS 3.3 

3 pag. 83 

3 pag. 93 

30.000 

2 

TRS-80 mod. 1 

Backgammon 

floppy 5" 

DOS 2.3 

3 pag. 89 

25.000 

3 

PET/CBM 3032/4032 

Editor/Assembler in Basic 

floppy 5" 

3032/4032+3040/4040 

2 pag. 33 

40.000 

4 

Apple 11 + 

Interi in precisione 
multipla 

floppy 5" 

DOS 3.3 

4 pag. 17 

40.000 



Grafica 3D 


4 pag. 47 


5 

PET/CBM 3032/4032 

Gioco del calcio 

floppy 5" 

3032/4032+3040/4040 

4 pag. 67 

25.000 

6 

Apple II + 

Pretty Printer 

Shape Table 

floppy 5" 

DOS 3.3 

5 pag. 27 

5 pag. 58 

30.000 

7 

Apple II + 

Data base 

floppy 5" 

7 pag. 

25.000 


modulare DOS 3.3 


Spedire in busta 
chiusa a 

Inviatemi i seguenti dischi di Personal Software 

n. _ 

PERSONAL SOFTWARE 
Servizio Programmi 

Via Rosellini 12 

20124 Milano 

per un totale di lire + L. 2.000 come contributo fisso 

spese di spedizione che pagherò al postino alla consegna del pacco. 


Cognome e nome 


Indirizzo 


Cap., Località 


Firma 
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POS TA 


elencare alcuni accorgimenti per di¬ 
minuire i disagi. Innanzitutto limita¬ 
re al massimo l’utilizzo delle istru¬ 
zioni anzidette anche a costo di do¬ 
ver inserire qualche istruzione in più. 
In secondo luogo, documentare ac¬ 
curatamente le locazioni di memoria 
a cui ci si riferisce, magari amplian¬ 
do il discorso a quelle analoghe (ad 
esempio se mediante una PRINT 
CHR$ si seleziona un determinato 
colore, può essere interessante cono¬ 
scere i codici degli altri colori acces¬ 
sibili, anche se in quel particolare 
programma non vengono utilizzati). 
Inoltre se di queste particolari istru¬ 
zioni sono note le analoghe per altre 
macchine, è senz’altro utile segnalar¬ 
lo, magari disegnando delle tabelle 
di conversione. 

Per quanto riguarda la creazione 
di una rubrica contenente le locazio¬ 
ni di memoria dei vari sistemi, penso 
che sia difficilmente realizzabile, in 
quanto ogni costruttore adotta una 
politica differente: alcuni pubblicano 
elenchi dettagliati di tali locazioni nei 
manuali d’uso, mentre altri sono 
molto scarsi di informazioni. 

Inoltre, funzioni che su alcune 
macchine sono disponibili mediante 
comandi BASIC immediati, su altre 
sono implementate in maniera diffe¬ 
rente o addirittura non ci sono. 

Ricordo, comunque, che già da 
parecchi numeri abbiamo istituito la 


rubrica Conversioni, nata proprio 
per ridurre questi disagi, in cui sono 
bene accette ed attese le collaborazio¬ 
ni di tutti. 


Meno giochi, più teoria 

Spettabile Redazione, 
scrivo per esporre alcune critiche 
che, vedo, accettate volentieri. 

Nei primi numeri della rivista c’e¬ 
rano alcuni articoli teorici che in se¬ 
guito andarono via via scompa¬ 
rendo. 

È una grave lacuna. 

Secondo me lasciate troppo spa¬ 
zio a listati (di giochi, generalmen¬ 
te) e poco ad articoli teorici. 

Una rivista “in gamba” dovrebbe 
insegnare a creare buon software 
più che ad utilizzarlo. 

Anche buona è la rubrica “piccoli 
annunci”, alla quale vorrei appog¬ 
giarmi anch’io per scambiare soft¬ 
ware (progetto e listato) con altri 
produttori di software che la pensa¬ 
no come me. 

Sperando vivamente che l’anda¬ 
mento del mercato non vi costringa 
altrimenti, colgo l’occasione per sa¬ 
lutarvi. 

Paolo Bonafé 
Favaro (VE) 

Come probabilmente avrà notato, 


già in questo numero presentiamo 
alcuni articoli a carattere teorico e al¬ 
tri che costituiscono interessanti 
spunti per chiunque voglia avvicinar¬ 
si all’affascinante mondo dell’intelli¬ 
genza artificiale. Anche nei prossimi 
numeri pubblicheremo articoli che 
sicuramente saranno molto apprez¬ 
zati dai lettori che, come lei, preferi¬ 
scono scriversi il proprio software. 

Niente paura, comunque, per tutti 
quelli che invece premono per avere 
programmi già pronti per l’uso. Sap¬ 
piamo che siete in molti, soprattutto 
tra i più giovani, e quindi continue¬ 
remo a pubblicare programmi e gio¬ 
chi per i vari personal. La nostra in¬ 
tenzione è quella di accontentare un 
numero sempre crescente di appas¬ 
sionati, tenendo conto delle varie 
preferenze. 

Per quanto riguarda la rubrica 
“piccoli annunci” abbiamo ricevuto 
moltissime inserzioni che cercheremo 
di pubblicare quanto prima, compa¬ 
tibilmente con lo spazio disponibile. 


In questa rubrica rispondia¬ 
mo alle lettere di carattere gene¬ 
rale. 

Scrivete a: 

Personal Software 
Via Rosellini, 12 
20124 Milano 
















Conversione di programmi 
per ZX81 e ZX80 nuova ROM 

— seconda parte — 


Un esempio 
pratico di 
conversione 


di Bruno Del Medico 


I n questa seconda puntata, viene 
presentata la conversione del 
Gioco del 15, pubblicato sul n. 
1 di Personal Software. Utilizzando 
le tecniche illustrate nella prima pun¬ 
tata, pubblicata sul numero scorso, 
l’autore documenta passo a passo l’e¬ 
volvere del procedimento con delle 
osservazioni che vi saranno utili per 
le vostre conversioni. Nella terza ed 
ultima puntata verranno convertiti 
altri due programmi. 


La conversione di un programma 
può essere paragonata agevolmente 
ad una traduzione tra lingue diver¬ 
se, per esempio italiano ed inglese. 
È facile tradurre termini come casa 
e grande, ma una frase del tipo: a 
very large house presenta già delle 
difficoltà perché una traduzione 
come: una veramente grande casa 
non è efficace. 

Se poi pensate alle indicazioni di 
pesi e misure, o alle frasi fatte sul 
tipo di “lavarsene le mani” comin¬ 
ciate a capire la complessità dell’ar¬ 
gomento e vi rendete conto che la 
traduzione letterale non è quasi mai 
sufficiente ma deve essere accompa¬ 
gnata da una interpretazione. Molto 
spesso diventa necessario ricorrere a 
perifrasi o giri di parole per ottenere 
un risultato soddisfacente. 

Nella conversione di programmi 
per lo ZX81 questo accade ancora 
più spesso perché il suo BASIC è 


generalmente limitato rispetto a 
quello di altri computer, e presenta 
grosse diversità specie per quanto 
riguarda la grafica. 

Ecco perché la conversione di un 
programma che non sia molto sem¬ 
plice va sempre eseguita per passi 
successivi: 

a) il primo passo consiste nello stu¬ 
dio del programma, per indivi¬ 
duare le principali routine, su¬ 
broutine e modalità di funziona¬ 
mento, si può così capire quali 
sono i passi tecnicamente intra¬ 
ducibili ,e decidere quale tipo di 
forma programmatoria alternati¬ 
va si deve usare per ottenere un 
risultato analogo; 

b) bisogna poi effettuare la conver¬ 
sione meccanica del programma, 
rendendolo sintatticamente com¬ 
patibile allo ZX81, ma scorretto 
nel significato; 

c) infine si carica il programma e lo 
si fa girare, eliminando in una 
prima fase tutti gli errori più evi¬ 
denti, come per esempio quelli di 
tipo 5 (non c’è più spazio sullo 
schermo) o di tipo 3 (indice fuori 
dal range stabilito); si fa poi in 
modo che la routine grafica com¬ 
pia il suo dovere stampando le 
cose giuste al posto giusto, maga¬ 
ri procedendo per tentativi. A 
questo punto il programma gire¬ 
rà in modo soddisfacente, e sì 
potrà migliorarne l’impostazione 
generale. 


) 
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Figura 1. Quadro iniziale del Gioco del 15 in caso di errore del giocatore sono 
possibili 2 messaggi: “Solo i numeri da 1 a 15 prego” e “Mossa non permessa”. 
Si noti che il primo viene stampato sulla linea 23 dello schermo, che normal¬ 
mente non può essere utilizzata ma diventa accessibile con l’istruzione POKE 
16418, 0. 


Conversione di un programma per 
Commodore: il Gioco del 15 

Questo programma è apparso sul 
numero 1 di Personal Software, che 
consiglio di avere sotto mano per se¬ 
guire sul listato originale le tecniche 
usate nella conversione. 

Si deve innanzitutto ragionare sul 
tipo di programma che ci si accinge 
a convertire: siccome II gioco del 
quindici si svolge su una scacchiera 
4*4, dovranno sicuramente essere 
presenti: 

a) un vettore, o matrice, che con¬ 
tenga i 16 elementi del gioco: i 
15 numeri più lo spazio vuoto 
che viene utilizzato per gli spo¬ 
stamenti. Qualsiasi programma 
che si svolga su una scacchiera, 
salvo rare eccezioni, usa un vet¬ 
tore o una matrice per contenere 
i dati relativi agli elementi mobi¬ 
li, pedine o altro; 

b) una routine grafica che stampa la 
scacchiera per velocizzare l’ese¬ 
cuzione è divisa in una parte che 
stampa la scacchiera vera e pro¬ 
pria (parte fissa), ed una parte 
che disegna nelle caselle gli ele¬ 
menti del vettore corrisponden¬ 
te. Dopo ogni mossa si ottiene 
l’aggiornamento della situazione 
usando solo la seconda parte. 
Nei programmi più elementari la 
scacchiera non viene disegnata e 


si stampano gli elementi del vet- 

tore in un 

certo 

ordine. Per 

esempio: 



8 

4 

2 

1 

5 

6 

7 

3 

9 


Le routine grafiche si ricono¬ 
scono facilmente perché sono 
costituite da un ciclo FOR 
NEXT o, assai più spesso, da più 
cicli concatenati. 

c) - Un ciclo che inizializza gli ele¬ 
menti del vettore, o due cicli 
concatenati se gli elementi del 
gioco sono contenuti in una ma¬ 
trice, 

- una routine (con relativa istru¬ 
zione INPUT) che accetta la 
mossa del giocatore, la controlla 
e modifica di conseguenza i con¬ 
tenuti della matrice o del vettore, 

- una routine che determina la 


mossa dell’avversario. Quando 
l’avversario è il computer la com¬ 
plessità di questa routine è gene¬ 
ralmente indicativa della maggio¬ 
re intelligenza di gioco. Nel caso 
in esame il giocatore non ha av¬ 
versari. 

Esaurite queste considerazioni ba¬ 
sta leggere attentamente il listato 
del Gioco del quindici, cercando tut¬ 
ti i GOSUB e localizzando le su¬ 
broutine: 

a) la linea 160 contiene un GOSUB 
650. Quindi alla linea 650 inizia 
una subroutine che evidentemen¬ 
te termina al primo RETURN 
successivo. È importante identifi¬ 
care per ogni subroutine che fun¬ 
zione svolge; 

b) con lo stesso metodo del punto 
a) si localizzano altre subroutine: 

- 580/640, richiamata dalla linea 
170; 

- 800/830, richiamata dalle linee 
180, 200, 220, 270 e moltissime 
altre; 

- 530/570, richiamata dalle linee 
340, 360, 380 e 400. 

Dunque il programma in oggetto 
è ben ordinato e si divide in due 
blocchi: 

a) il blocco delle subroutine, tutte 
raccolte nelle linee tra la 530 e la 


830; 

b) il corpo principale del program¬ 
ma, che va dalla linea 100 alla 
linea 520. 

La linea 520 è un GOTO 170, 
infatti solo la parte che va dalla li¬ 
nea 170 alla linea 520 deve essere 
ripetuta ad ogni mossa. 

Le linee dalla 100 alla 160 delimi¬ 
tano la parte introduttiva, nella qua¬ 
le vengono inizializzati gli elementi 
del gioco (per esempio, dove si mi¬ 
schiano le carte o si dispongono le 
pedine sulla scacchiera). In questa 
parte introduttiva viene sicuramente 
inizializzato il vettore o matrice che 
dovrà contenere i 15 numeri del gio¬ 
co. Si noti inoltre che il blocco di 
programma che va dalla linea 170 
alla 520 richiama tutte le subroutine 
individuate in precedenza, eccetto la 
650. Questa viene richiamata una 
sola volta, nella parte introduttiva, 
dalla linea 160. 


La parte introduttiva e le subroutine 

La linea 100 inizializza una matri¬ 
ce numerica di nome N a 2 dimen¬ 
sioni (4, 4) e composta da 16 ele¬ 
menti che possono essere razional¬ 
mente rappresentati come in 
tabella 1. 
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(4 TO 20 STEP 4) ed ogni volta il 
ciclo più interno FOR H disegna 21 
spazi inversi in senso orizzontale, 
partendo dalla colonna 10 dello 
schermo (PRINTTAB 10). In prati¬ 
ca questo ciclo disegna 5 linee oriz- 
Tabella 1. Matrice a 2 dimensioni composta da 16 elementi. zontali che vanno dalla colonna 10 


N (1, 1) = 0 

N (2, 1) = 0 

N (3, 1) = 0 

N (4, 1) = 0 

N (1, 2) = 0 

N (2, 2) = 0 

N (3, 2) = 0 

N (4, 2) = 0 

N (1, 3) = 0 

N (2, 3) = 0 

N (3, 3) = 0 

N (4, 3) = 0 

N (1, 4) = 0 

N (2, 4) = 0 

N (3. 4) = 0 

N (4, 4) = 0 


Si deve ricordare che i sedici ele¬ 
menti della matrice N non possono 
rimanere uguali a zero, ma devono 
avere valori da 0 a 15. 

Ciò viene ottenuto con la routine 
110/140, illustrata nel riquadro “Ini- 
zializzazione di un vettore”. 

Si incontra poi una istruzione 
PRINT CHR$ (144), spiegata nella 
tabella 2 insieme ad altre istruzioni 
speciali del VIC 20, che sono gene¬ 
ralmente adatte per tutti i Commo¬ 
dore (PRINT CHR$ (144)). Sicco¬ 
me nello ZX81 abbiamo solo la 
stampa in nero, questa istruzione 
può essere ignorata. 

Ora che la parte iniziale del pro¬ 
gramma è stata compresa nel suo 
complesso, la si può convertire 
Secondo le indicazioni riportate nel 
numero precedente. Si ricaverà 
qualcosa di simile alla parte di pro¬ 
gramma compresa tra le linee 99 e 
160 del listato 1. 

Si aggiunge la linea: 

99 LET MOSSE = 1 

perché la variabile MOSSE, incre¬ 
mentata di 1 nella linea 480, non è 
stata inizializzata in precedenza. 

La subroutine 650 è l’unica richia¬ 
mata nella parte introduttiva, e vie¬ 
ne eseguita una volta sola. 

La sua prima istruzione è PRINT 
CHR$ (147), equivalente a CLS, 
che pulisce lo schermo. 

Si incontrano poi ben due istru¬ 
zioni PRINT CHR$ (18), che predi¬ 
spongono la scrittura in modo inver¬ 
so (la seconda non disattiva la pri¬ 
ma). Tutti i PRINT presenti in que¬ 
sta subroutine e nel programma, sic¬ 
come non si incontrano istruzioni 
PRINT CHR$ (146) che disattivano 
l’inverse, stampano spazi inversi. 

Nella subroutine si possono di¬ 
stinguere due loop: il primo è con¬ 
catenato e va dalla linea 670 alla 
710; l’altro è un ciclo semplice e va 
dalla linea 730 alla 770. 

Nel primo loop il ciclo più esterno 
FOR RIGA viene eseguito 5 volte 


Listato 1. Gioco del quindici prima passata. Questo listato rappresenta una fase 
intermedia della conversione del programma Gioco del quindici. Questa versio¬ 
ne gira solo se vengono apportate le modifiche descritte nel testo. Potete trovare 
la versione definitiva nel listato 2. 


1 

REM 

GIOCO 

99 

LET 

MOSSE= 

10© 

DIM 

N i 4 , 4 > 

110 

FOR 

K = i TO 

12© 

LET 

I = I NT 

121 

LET 

U = INT 

130 

IF 

N 11, ■ J 5 < 

14© 

LET 

N i I . J ) 

141 

NEXT K 

16® 

GOSUB 5sQ 

170 

GOSUB SS© 

180 

LET 

X =22 

181 

GOSUB 800 

190 

PRINT 


a 15 PR IH fi PRSShTF! 


15 

( R N D **4 4-1 ) 
(RNCt4 + 13 
>3 THEN GOTO 

sK 


.£3 



£03 

201 

aie 

22 

221 

230 

231 
£4.0 
250 
260 
261 

30 
£70 
271 
280 
1 Pi 
290 

300 

301 

310 

311 
320 

330 

331 
34-0 

341 

342 
350 

360 

361 

362 
370 

380 

381 

382 
390 

400 

401 

402 
410 

420 

421 
430 


LET .^=c: 

GOSUB SOS 
PRINT 

LETX=23 
GOSUB ©00 

PRINT "BRTTI LR TUR MOSSO" 
INPUT M£ 

IF LEN M$<I THEN GOTO 270 
IF M $ =" F ” THEN STOP 
LET M =UflL *‘M$" 

IF M>0 AND M <16 THEN GOTO 3 

LET X =22 
GOSUB 300 

PRINT "ERRORE.USR NUMERI DR 
15" 

GOTO £00 
LET X =23 
GOSUB 800 
FOR 1=1 TO 4 
FOR U=1 TO 4 

IF N(I,U)=N THEN GOTO 340 

NEXT J 

NEXT I 

LET 11=1+1 

LET JJ=J 

GOSUB 53© 

IF FLRGrl THEN GOTO 46© 

LET 11=1-1 
LET JJ=J 
GOSUB 530 

IF FLRG=1 THEN GOTO 460 
LET II=I 
LET JJ=U + 1 
GOSUB 530 

IF FLRG = 1 THEN GOTO 46© 

LET II=I 
LET UU=U-1 
GOSUB 530 

IF FLRG=1 THEN GOTO 460 
LET X =22 
GOSUB 8©0 
PRINT 



440 LET X =22 

441 GOSUB 806 

442 PRINT "MOSSO NON PERMESSO" 
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Seguito listato 1. 

450 

GOTO 200 

460 

LET =0 

461 

LET N CII,UJ) =M 

470 

L.ET X =22 

471 

GOSUB 800 

480 

LET MOSSE=MOSSE+l 

490 

LET X =4 

491 

GOSUB 800 _ _ 

492 

PRINT TRB 25;“MOSSE”;MOSSE 

510 

LET X=2+J*4 

511 

GOSUB 800 

512 

PRINT TRB (7+X*SJj"B"; 

520 

GOTO 170 

530 

LET FLRG=® 

540 

IF XI<1 OR 11 > 4 OR vJUcl OR 

JJ >4 
550 

0 

560 

THEN GOTO 570 

IF N t II .. JJ) < >0 THEN GOTO 57 

LET FLRG*1 

570 

RETURN 

560 

FOR X=1 TO 4 

581 

FOR U = 1 TO 4 

590 

IF N(I,U)=0 THEN GOTO 630 

500 

LET X=2+U*4 

601 

GOSUB 800 

eie 

PRINT TRB (St-UtS-LEN !5TR$ 

tN ( X 

,J)))+l); 

620 

PRINT N(I,J) 

630 

NEXT J 

631 

PRINT 

632 

NEXT X 

640 

RETURN 

850 

CLS 

660 

PRINT TRB 7;"GIOCO DEL 15” 

670 

FOR R=4 TO 20 STEP 4 

690 

LET X=R 

691 

GOSUB 80© 

692 

PRINT TRB 10: 

700 

FOR H = 10 TO 30 

701 

PRINT 

702 

NEXT H 

71© 

PRINT 

711 

PRINT 

712 

NEXT R 

713 

PRINT 

730 

FOR L=5 TD 19 

731 

LET X =L 

732 

GOSUB S00 

740 

TRB 

PRINT TRB 10; “■“;TRB 15; 

20; “H“ ; TRB 25; TRB S©; 77 » 

77© 

NEXT L 

771 

PRINT 

772 

PRINT TRB l; 

780 

LET X =23 

781 

GOSUB 800 

790 

PRINT "BÒTTI F PER FINIRE" 

791 

RETURN 

SS© 

PRINT RT 0,0; 

810 

FOR Y=1 TO X-l 

82© 

PRINT RT Y,0; 

830 

NEXT Y 

831 

RETURN 


alla colonna 30: che risultano spo¬ 
state rispetto al centro dello scher¬ 
mo dello ZX81 che ha 32 colonne, 
ma non per il Commodore che ne 
ha 40. 

Comunque il disegno, anche se 
fuori centro, entra nello schermo 
dello ZX81 e per il momento lo si 
può lasciare inalterato, si cambia 
invece il nome della variabile di 


controllo RIGA, che deve essere 
composto da un solo carattere. 

Le cinque righe nere disegnate 
dal ciclo concatenato sono spaziate 
di 3 posizioni perché vengono trac¬ 
ciate lungo le linee di schermo 3, 7, 
11, 15 e 19. 

Il metodo usato per ottenere la 
spaziatura di 3 linee è abbastanza 
ingegnoso ed utilizza la subroutine 


800 già impiegata per selezionare la 
linea di stampa, cioè per spostare il 
cursore da una posizione all’altra. 
All’inizio della subroutine si ha l’i¬ 
struzione PRINT CHR$ (19) che 
equivale a PRINT AT 0, 0. Segue il 
ciclo FOR Y che viene eseguito tifa¬ 
te volte quanto è il valore di X-l, 
ad ogni ripetizione viene eseguita 
l’istruzione PRINT CHR$ (17) che 
abbassa di un posto la posizione di 
stampa (cioè abbassa il cursore di 
una riga). In pratica ogni volta che il 
ciclo FOR Y viene ripetuto, la posi¬ 
zione di stampa diventa: 1, 0; 2, 0; 
3, 0;... e così via, tante volte quanto 
è il valore di X-l. 

Siccome in molte linee, X assume 
valori fino a 23, si avranno dei pro¬ 
blemi con la dimensione dello scher¬ 
mo relativamente alle linee in fon¬ 
do, dal momento che lo ZX81 ha 22 
linee utilizzabili mentre il Commo¬ 
dore ne ha 24. 

Nella subroutine 650 la variabile 
X è posta uguale a RIGA e varia da 
4 a 20, le cinque linee orizzontali 
vengono dunque disegnate nelle li¬ 
nee dalla 3 alla 19. 

Il secondo loop, FOR L, va da 5 a 
19 e viene eseguito 15 volte, ogni 
volta disegna nella linea X, alle co¬ 
lonne 10, 15, 20, 25 e 30, un quadra¬ 
tino nero. La posizione di stampa si 
abbassa di una linea ad ogni ripeti¬ 
zione del ciclo perché X varia, in 
questo modo la subroutine 650 nel 
suo complesso disegna 5 linee oriz¬ 
zontali e 5 verticali, le quali com¬ 
pongono un reticolo facilmente 
identificabile con la scacchiera che 
dovrà contenere i 15 numeri. 

Il Commodore ricorre alla sub¬ 
routine 800 per spostare la posizione 
del cursore in una linea diversa, 
mentre lo ZX81, modesto ma effica¬ 
ce, utilizza l’istruzione PRINT AT. 

Una volta individuata la subrouti¬ 
ne che stampa la scacchiera, si rico¬ 
nosce che quella che stampa gli ele¬ 
menti della matrice numerica nei 
corrispondenti spazi è l’altra subrou¬ 
tine contenente un ciclo concatena¬ 
to, la 580/640. 

Fortunatamente la scacchiera en¬ 
tra nello schermo dello ZX81, per¬ 
ché occupa le posizioni comprese 
nelle seguenti coordinate: 


3. 10 

3, 3U 

19, 10 

19, 30 
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Quando il programma girerà bene 
in tutti i suoi aspetti, si potrà centra¬ 
re meglio la scacchiera, ponendola 
per esempio alle coordinate: 


2, 6 

2, 26 

18, 6 

18, 26 


In questo modo in fondo allo 
schermo ci saranno almeno tre linee 
per eventuali messaggi mentre nella 
disposizione attuale rimangono in 
fondo allo schermo due sole linee e 
sicuramente questo causerà errori di 
tipo 5 se si farà girare la prima pas¬ 
sata del programma; tuttavia saran¬ 
no inconvenienti facilmente rime¬ 
diabili. 


II corpo principale del programma 

Il corpo del programma contiene 
l’algoritmo del gioco, sarebbe inte¬ 
ressante discuterne le modalità di 
svolgimento; ma non interessa ai fi¬ 
ni di questo articolo. Del resto gli 
algoritmi di calcolo sono i più facili 
da convertire e sono sufficienti le 
tecniche esposte nell’articolo prece¬ 
dente. 

Bisogna notare che il programma 
è sempre sotto l’effetto della istru¬ 
zione PRINT CHR$ (18) e le linee 
di programma sul tipo della 190 di¬ 
segnano spazi inversi e non spazi 
bianchi. Òvviamente i cicli che 
stampano linee orizzontali come 
queste devono andare da 1 a 32 e 
non da 1 a 40. 

Dopo aver capito la logica di base 
di questo programma si può effet¬ 
tuare una prima conversione: l’o¬ 
biettivo è di rendere il programma 
caricabile sullo ZX81. 

In questo modo lo si fa girare, gli 
inevitabili errori potranno essere 
corretti sperimentalmente e non at¬ 
traverso congetture effettuate sul li¬ 
stato. 


La prova pratica 

Terminata la prima conversione 
del programma, che appare nel li¬ 
stato 1, lo si carica sullo ZX81 e lo 
si registra due volte, onde evitare 
brutte sorprese, e si dà il RUN. 


Listato 2. Gioco del quindici. Questo programma gira su ZX81 e ZX80/8K. 
Occorre riordinare in una scacchiera 4x4 i numeri da 1 a 15 presentati alla 
rinfusa, utilizzando per gli spostamenti l’unica casella libera. Il gioco è piacevo¬ 
le perché sufficientemente veloce. L’output di questo programma è quello della 
figura 1. 


3 

4 

5 

10 

100 

101 

110 

120 

122 

130 

140 

142 

160 

170 

19 


REM GIOCO DEL QUINDICI 

REM 

REM 

GOSUB 9000 
DIM N ( 4,4 ) 

LET MOSSE = 1 
FOR U=1 TO 15 
LET I = INT (RND*4> +1 
LET ’J = INT (RND*4) +1 
IF Nll,J)<>0 THEN GOTO 
J) =U 


LET NtI 
NEXT U 
GOSUB 650 
GOSUB 580 
0 PRINT RT 19 


120 


f, 


195 PRINT ■' 

• • 

200 PRINT AT 20,0;"BOTTI Lfl TUA 
MOSSA N. MOSSE 
21 0 PRINT 

32 INPUT MS 
24-0 IF CODE M$< 29 OR CODE MS>37 
THEN GOTO 270 

241 IF LEN MS = 1 THEN GOTO 250 
24.2 IF CODE MS (2) <28 OR CODE MS 
12)>33 THEN GOTO 270 
260 LET M=URL MS 

262 IF M >0 AND M<16 THEN GOTO 3 
00 

270 POKE 164-18,0 

272 PRINT AT 23,0;“SOLO NUMERI 
DA 1 R 15 PREGO’* 

275 PAUSE 4-00 

276 POKE 164-36,255 
280 POKE 164-18,2 
290 GOTO 232 

300 FOR 1 = 1 TO 4- 
312 FOR U = 1 TO 4 

320 IF N(I,d) =M THEN GOTO 34-0 

330 NEXT U 

332 NEXT I 

34.0 LET 11 = 1 + 1 

34-2 LET JU=J 

34.4. GOSUB 530 

350 IF FLAG=1 THEN GOTO 4-60 
360 LET 11=1-1 
362 LET JJ=J 
364. GOSUB 530 

370 IF FLAG = 1 THEN GOTO 4-60 
380 LET II=I 
382 LET JJ=J+1 
384 GOSUB 530 

390 IF FLfiG =1 THEN GOTO 460 
400 LET II=I 
402 LET JU=J-1 
404 GOSUB 530 

410 IF FLAGRI THEN GOTO_460 
430 PRINT RT li 



NON PERMESSA 


L44 PR 
IPROVA” 

450 GOTO 232 
460 LET N(I,U)=0 
462 LET N(II,Jd)=M 
480 LET MOSSE=MOSSE+l 

490 IF N (3,4) =15 AND N(2 
AND N (1,4) =13 THEN GOTO 

491 GOTO 510 


a , 4 ì 
492 


• 14 
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Seguito listato 2. 


492 IF N(4,3)=12 AND 
RND N(2,3)=10 AND N ( 1 
GOTO 494 

493 GOTO 510 

494 IF N(4,2)=8 
D N(2,2)=6 RND N 
O 496 

495 GOTO 510 

496 IF N(4,1)=4 
D N(2,1)=2 RND N 
O 500© 

510 LET X=U*4 
514 PRINT RT X,(2+1*5) 
LET X=«JU*4 
PRINT flT X 


N(3,3)*11 
3) =9 THEN 


RND N(3,21=7 RN 
(1,2)=5 THEN GOT 


RND N(3,1)=3 RN 
(1,1)=1 THEN GOT 


( 4 +11*5 —LEN M$) 


GOTO 160 
LET FLRG *0 

IF II<1 OR II> 4 OR JJ<1 OR 
THEN GOTO 570 

IF N(II,UU) <>0 THEN GOTO 57 


GOTO 630 


(STR* 


520 
524 
M 

528 
530 
540 
J«J>4 
550 

0 

560 LET FLRG=1 
570 RETURN 
580 FOR 1=1 TO 4 
582 FOR U = 1 TO 4 
590 IF N(I,U)=0 THEN 
600 LET X=U*4 

610 PRINT RT X,(3+1*5—LEN 
(N (I,U) ) ) +1) ; 

620 PRINT N f I , «J) 

630 NEXT U 
632 PRINT 
634 NEXT I 
640 RETURN 

650 CLS _ 

660 P RINT "I— 1 GIOCO DEL 
NDICI K—«— 

670 FOR S=2 TO 18 5TEP 4 
LET X=S 
PRINT RT X,6; 

FOR H=6 TO 25 
PRINT 
NEXT H 
PRINT 
PRINT 
NEXT S 
PRINT 

FOR L=2 TO 18 
LET X =L 

PRINT RT X , 5 j ; TRB 10;*' 

20; Tr B" ; TRB 25; 


QUI 


690 

694 

700 

702 

704 

710 

712 

714 

716 

730 

732 

740 

TRB 


15; 


TRB 




770 NEXT L 
772 PRINT 
792 RETURN 
5000 GGSUB 9000 

5010 PRINT RT 10,0;"COMPLIMENTI" 
5012 PRINT 

5014 PRINT "HRI UINTO IN MOSSE 
;“ MOSSE” 

5020 INPUT US 
5030 CLS 
5040 RUN 
9000 CLS 
1 10 PRINT 

J020PRINTTRB 7;"GIOCO DEL OUIN 
DICI" 


9040 PRINT 
9050 PRINT 
9060 RETURN 


Dopo pochi secondi, sullo schermo 
appare la scacchiera come la si era 
immaginata esaminando la subrouti¬ 
ne 650. Nelle caselle non ci sono pe¬ 
rò i numeri, ed in fondo allo scher¬ 
mo appare il previsto ma non temu¬ 
to messaggio di errore: 

5/820 

Evidentemente qualcuna delle X 
inizializzate al valore di 23 ha indot¬ 
to la subroutine 800 a posizionare il 
cursore nella linea 22. 

Per evitare questi problemi biso¬ 
gna cancellare tutte le linee che ri¬ 
corrono all’uso di X > = 22 per de¬ 
terminare la posizione di stampa. 
Successivamente si deve verificare 
quali messaggi vengono stampati 
fuori posto, e correggerne la posi¬ 
zione inserendo delle istruzioni 
PRINT AT. 

Tutte le linee dalla 200 alla 221, 
dalla 420 alla 441, le 470 e 471, 780 
e 781, 790, 190, 180 e 181 devono 
essere cancellate. Queste tentavano 
di scrivere qualcosa sotto la scac¬ 
chiera, dove sono utilizzabili solo 2 
linee; una occupata da un PRINT 
eseguito nella subroutine 650, l’altra 
dalla domanda BATTI LA TUA 
MOSSA. Adesso il programma gira 
anche se con alcuni difetti: 

a) il messaggio contenente il nume¬ 
ro di mosse fatte viene stampato 
sulla linea 3 e si sovrappone al¬ 
l’angolo destro in alto della scac¬ 
chiera. Si rimedia modificando 
così la linea 492: 

492 PRINT AT 2, 20; 
“MOSSA”; MOSSE 

b) quando si fa una mossa, il nume¬ 
ro battuto sulla tastiera va nor¬ 
malmente ad occupare la casella 
vuota. Però la posizione occupa¬ 
ta in precedenza, che dovrebbe 
venire coperta da due spazi bian¬ 
chi, viene invece occupata da 
due spazi neri. Si rimedia modifi¬ 
cando così la linea 512: 

512 PRINT TAB (7+1*5); 

“due spazi bianchi” 

c) se si introduce un numero errato 
o una mossa non consentita, il 
computer tenta di stampare il 
messaggio di errore sotto la scrit¬ 
ta BATTI LA TUA MOSSA, 
cioè nella linea 22, basta modifi- 
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Inizializzazione di un vettore 

Con l’istruzione: 

DIM P(3) 

inizializziamo un VETTORE NUMERICO, cioè un gruppo di variabili tutte con 
nome P. Per distinguerle tra loro le chiamiamo: P(I), P(2) e P(3). Appena inizializzati i 
tre elementi del vettore P valgono O. Per assegnare un valore diverso, per esempio da 
1 a 3 possiamo scrivere: 

LET P(l) = 1 
LET P(2) = 2 
LET P(3) = 3 

oppure 

10 FOR K = 1 TO 3 
20 LET P(K) = K 
30 NEXT K 

Ammettiamo di voler assegnare ad un vettore P, composto da 90 elementi, i valori 
interi da 1 a 90, possiamo farlo con un ciclo FOR K come il precedente. Immaginiamo 
ora di volergli attribuire valori da 1 a 90, ma ALLA RINFUSA, per esempio facendo 
in modo che l’elemento P(90) valga 1, e l’elemento P(l) valga 43: 

10 DIM P(90) 

20 FOR K = 1 TO 90 

30 LET P(K) = INT (RND 90) + 1 

40 NEXT K 

In questo modo però si potranno avere molti elementi con valori uguali tra loro, 
perché la linea 40 potrebbe generare per esempio diverse volte il numero 80 e neppure 
una volta il numero 79. 

Se si vuole avere un vettore P contenenti TUTTI i numeri da 1 a 90 sistemati alla 
rinfusa, si deve usare una routine come questa: 

10 DIM P(90) 

15 DIM Q(90) 

20 FOR K = 1 TO 90 

30 LET NUM = INT (RND * 90) + 1 

32 IF Q(NUM) = 1 THEN GOTO 30 

34 LET Q(NUM) = 1 

36 LET P(K) = NUM 

40 NEXT K 

Vediamo come agisce questa routine, tenendo presente che all’inizio tutti gli elemen¬ 
ti di P e tutti quelli di Q valgono zero: 

K = 1 Linea 30: NUM = 23 

linea 32: 0(32) = 1? NO continua 
linea 34: Q(23) = 1 
linea 36: P(l) = 23 

K=2 Linea 30: NUM = 25 

linea 32: Q(25) = 1? NO continua 
linea 34: Q(25) = 1 
linea 36: P(2) = 25 

K=3 Linea 30: NUM = 23 

linea 32: Q(23) = 1? SI. RITORNA ALLA LINEA 30. 

11 programma torna alla linea 30 ogni volta che viene selezionato un numero già 
scelto in precedenza. 

La seguente routine può essere usata nel gioco della TOMBOLA o del LOTTO ed 
estrae i 90 numeri evitando di estrarre due volte lo stesso numero: 

10 DIM P(90) 

15 FOR K = 1 TO 90 
20 LET P(K) = K. 

30 NEXT K 

40 FOR K = 1 TO 90 

50 LET NUM = INT (RND * 90) + 1 

60 IF P(NUM) = 0 THEN GOTO 50 

70 LET P(NUM) = 0 

80 LET NUM = NUMERO ESTRATTO 

90 NEXT K 

A tutti quelli che vogliono approfondire le tecniche di programmazione in BASIC 
consiglio il mio volume Sviluppiamo software con il nostro ZX81, Edizioni Clup, Mi¬ 
lano. 


care le linee di programma con¬ 
tenenti messaggi di errore intro¬ 
ducendo una istruzione PRINT 
AT 20, 0. Per esempio: 

442 PRINT AT 20, 0; 

“MOSSA NON PERMESSA” 

Adesso i messaggi vengono stam¬ 
pati nell’unica linea disponibile, 
quella appena sotto la scacchiera e 
appena sopra la richiesta di mossa. 
In questo modo però il messaggio 
non viene più cancellato, si deve 
introdurre subito dopo l’input una 
linea: 

232 PRINT “32 spazi” 

Questa linea viene eseguita appe¬ 
na il giocatore ripete la mossa e can¬ 
cella il messaggio di errore, il fatto 
che venga eseguita OGNI VOLTA 
che il giocatore fa una mossa, non 
ha importanza. 

A questo punto si può essere già 
soddisfatti del lavoro eseguito: in 
due passate si è ottenuto un pro¬ 
gramma che gira, e per i meno esi¬ 
genti può andare bene anche così, 

I più esigenti potranno effettuare 
anche una terza passata per correg¬ 
gere i difetti che ancora sussistono: 

a) tutto lo schermo è disegnato in 
modo asimmetrico rispetto al suo 
asse centrale; 

b) la verifica dell’input, che era suf¬ 
ficientemente efficace per il 
Commodore, non lo è più per il 
Sinclair. Infatti nello ZX81, se il 
giocatore batte la mossa premen¬ 
do una lettera anziché un nume¬ 
ro, il computer si blocca; 

c) il gioco è lento sullo ZX81, per¬ 
ché ogni volta che viene eseguita 
una mossa il computer ristampa 
tutta la matrice. Inoltre il compu¬ 
ter non riconosce la fine del gio¬ 
co. E previsto che, quando il gio¬ 
catore termina di sistemare i 15 
numeri, prema F per finire. Si è 
cercato di porre rimedio a tutti 
questi inconvenienti nel pro¬ 
gramma del listato 2. La videata 
principale è visibile nella figura 1 
e si noti che la scacchiera è stata 
centrata. 

Se il giocatore batte una mossa 
non concessa (es. 2) il computer 
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Tabella 2. Istruzioni particolari usate su Commodore. 


CHR$ (5) 
CHR$ (28) 
CHR$ (30) 
CHR$ (31) 
CHR$ (144) 
CHR$ (156) 
CHR$ (158) 
CHR$ (159) 

CHR$ (18) 
CHR$ (146) 
CHR$ (13) 
CHR$ (17) 
CHR$ (19) 
CHR$ (29) 
CHR$ (32) 
CHR$ (141) 
CHR$ (145) 
CHR$ (147) 
CHR$ (157) 
CHR$ (160) 

SPC(x) 

TAB(x) 

CHR$ (14) 

CHR$ (142) 

ASC(X$) 

FRE(x) 

POS(x) 


Predispone 

Predispone 

Predispone 

Predispone 

Predispone 

Predispone 

Predispone 

Predispone 


il testo in 
il testo in 
il testo in 
il testo in 
il testo in 
il testo in 
il testo in 
il testo in 


bianco. 

rosso. 

verde. 

blu. 

nero. 

viola. 

giallo. 

azzurro. 


Attiva UNIVERSE. 

Disattiva UNIVERSE. 

Sostituisce il RETURN. 

Fa abbassare il cursore di una riga. 

Sposta il cursore nell’angolo in alto a sinistra. 

Sposta il cursore a destra di una colonna. 

Produce uno spazio. 

Equivale a SHIFT e RETURN. 

Fa alzare il cursore di una riga. 

Pulisce lo schermo e manda il cursore in alto a sinistra. 

Sposta il cursore a sinistra di una posizione. 

Produce uno spazio + SHIFT. 

Fa spaziare di x posizioni senza cancellare. 

Fa andare alla colonna x. Se x supera 21 si passa alla linea successiva. 
Fa passare al set maiuscolo/minuscolo. 

Fa passare al set grafico. 

Equivale a CODE X$. 

Fornisce la quantità di byte liberi in memoria. 

Restituisce un numero da 0 a 21, che rappresenta la colonna su cui si 
trova il cursore. 


risponde con un messaggio di er¬ 
rore, ma siccome in fondo allo 
schermo non c’è più spazio il 
messaggio viene stampato sulla 
linea 23 (che normalmente non è 
accessibile) dalla routine 270/ 
290. La scritta scompare dopo 8 
secondi (o anche prima se il gio¬ 
catore preme un tasto qualsiasi), 
ed il programma torna ad esegui¬ 
re l’input alla linea 232. 

Le linee 490/496 riconoscono la 
situazione di gioco terminato. Que¬ 
sta versione è sufficientemente velo¬ 
ce per essere anche piacevole. 

Per ottenere una maggiore veloci¬ 
tà, la scacchiera ed il vettore con i 
quindici numeri vengono disegnati 
una sola volta. Successivamente il 
computer aggiorna solo la posizione 
relativa al numero spostato. Effet¬ 
tuata una mossa, dopo circa un se¬ 
condo si ottiene il READY per la 
mossa successiva. ■ 


non perdete 
il nuovo numero di 


Bitest: Nano-Condor 
Smau ’83 

Impariamo il calcolo 
matriciale 

L’HX-20 della Epson 

XISP: mini interprete LISP per 
Sinclair ZX 80/81 

Oulipoit, la macchina per poetare 

Personal Data Base: un best seller 
da Apple a M20 e PC IBM 
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Introduzione alla intelligenza 

artificiale 

— prima parte — 


Un contributo alla 
“istruzione” del vostro 
personal 

di Bruno Del Medico 


T utti gli utilizzatori di personal 
possono sicuramente divide¬ 
re la propria biblioteca di 
giochi in due sezioni: 

- programmi nei quali il computer 
svolge un ruolo di arbitro, o crea 
delle situazioni funzionali allo 
svolgimento del gioco, ma casuali; 
- programmi nei quali il computer 
svolge in modo completo il ruolo 
di avversario, gioca contro l’ope¬ 
ratore e lo fa con una certa intelli¬ 
genza, oppure coordina il com¬ 
portamento intelligente dell’av¬ 
versario di turno. 

Scopo di questo articolo è di 
entrare nei dettagli dei programmi 
della seconda categoria: capire co¬ 
me fa il computer ad essere tanto 
abile da risultare talvolta imbatti¬ 
bile. 

Parleremo quindi di IA (Intelli¬ 
genza Artificiale). Presenterò delle 
routine intelligenti, spiegandone nel 
dettaglio le modalità di funziona¬ 
mento. Successivamente presenterò 
alcuni programmi basati sulla tecni¬ 
ca del processo di apprendimento. 
(In questi programmi abbiamo uno 
svolgimento simile a quello illustra¬ 
to nei diagrammi della figura 1). 

Tutti i programmi presentati in 
questo articolo girano su ZX81, e, 
con le modifiche suggerite alle figu¬ 
re 2 e 3, anche su Spectrum e su 
ZX80 con ROM da 8 Kbyte. 


Tobia, bruco poco astuto 

Faremo i primi passi nel campo 
della IA immaginando di trovarci 
proprio in un campo, e di osservare 
le peripezie di un simpatico bruco, 
cui affibbiamo il nome di Tobia 
Smith. Forse non possiede neppure 
un milligrammo di cervello, e sicu¬ 
ramente lo impiega tutto in una sola 
attività: la ricerca del cibo. Non 
sempre lo fa con successo. Se carica¬ 
te il listato 1, lo vedrete affannarsi 
avanti e indietro, (la stringa A$), su 
e giù nel suo territorio, mentre il 
cibo (l’asterisco inverso) se ne sta in 
un angolo senza manifestare eccessi¬ 
ve preoccupazioni. Alcune volte To¬ 
bia lo trova, altre volte no ed allora 
purtroppo... muore di fame. 

Questo accade quando il ciclo 
FOR K (linea 220) viene eseguito 
tutte le 500 volte. L’istruzione 240: 

PEEK 16398 + 256 * 

PEEK 16399 

fornisce l’indirizzo del display file 
(memoria di schermo) relativo al 
punto che sta per essere stampato, 
cioè L, C (linea 230). 

Guardando la linea 300 potete ve¬ 
dere che il punto L, C viene occupa¬ 
to dal bruco. Il computer si accorge 
che il bruco sta per soprastampare il 
cibo (quindi lo sta catturando) se il 
contenuto dell’indirizzo letto con la 
precedente istruzione PEEK è 151, 
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numero di codice dell’asterisco in¬ 
verso. Poiché i contenuti degli indi¬ 
rizzi si leggono con l’istruzione 
PEEK, la linea 240: 

PEEK (PEEK 16398 + 256 * 
PEEK 16399) 

indica: 

IL CONTENUTO (dell’indirizzo 
che puoi ottenere leggendo il con¬ 
tenuto dei byte 16398 e 16399). 

Notate bene la sequenza delle li¬ 
nee nel listato 1: 

- la linea 230 stabilisce che qualcosa 
deve essere scritto nella posizione 
L,C; da quel momento L,C rap¬ 
presenta la posizione di stampa. 

- La linea 240 legge nel display file 
il contenuto della posizione di 
stampa, cioè stabilisce se si tratta 
del cibo o di uno spazio; nel pri¬ 
mo caso il gioco finisce. 

- La linea 300 stampa il carattere 
equivalente al bruco nella posizio¬ 
ne L, C. 

Se avete afferrato questi concetti 
siete praticamente in grado di pro¬ 
grammare da soli dei semplici giochi 
di movimento. 

Nello Spectrum il display file è 
organizzato in modo da essere pres¬ 
soché illeggibile. Può essere usata la 
funzione SCREENS, e lo faremo 
più avanti. Per ora nella versione 
per lo Spectrum inseriamo la linea: 

302 IF y = 1 AND 

x = c THEN GOTO 600 

(vedi figura 3). Questa forma però 
non è adatta quando gli oggetti da 
riconoscere sono molti e disposti a 
caso. 

Ma torniamo al nostro amico To¬ 
bia, che generalmente muore di fa¬ 
me senza riuscire a raggiungere il ci¬ 
bo. Ci fa una grande pena e decidia¬ 
mo di aiutarlo, modificando il suo 
comportamento. Per fare questo, 
dobbiamo intervenire sul listato 1, 
nella parte che determina i movi¬ 
menti: le linee 370-395. 

Tobia si muove lungo le coordina¬ 
te L, C ed i valori di L, C vengono 
determinati dalla linea 375. Dobbia¬ 
mo fare in modo che Tobia non si 
aggiri più nel prato in modo casuale, 
ma segua una particolare direzione, 
cioè muova direttamente verso il 
cibo: in pratica tenti di raggiungere 


1 

REM T08IR BRUCO POCO B5TUTO 

2 

REM IL CICLO POR Z REGOLO L 

fi UELOCITfl 

5 

SLGU 

110 

LET Y=INT (RND*12) +10 

120 

LET X = INT (RND*12) 

130 

LET L =© 

14-0 

LET C =25 

150 

LET fìf = “B" 

195 

PRINT RT L.. C,fi$ 

220 

FOR K = 1 TO 500 

225 

PRINT PT Y,X; CHR$ 151 

230 

PRINT OT L,Cj 

24-Q 

IF PEEK (PEEK 16398+256*PEE 

K 16399)=151 THEN GOTO 6O0 

300 

PRINT R$ 

305 

FOR Z=1 TO 25 

306 

NEXT Z 

310 

PRINT RT L , C; ** '* 

370 

LET R = INT £ RND *4- ) 

375 

IF RND>.49 THEN LET R=-R 

380 

LET L=L+R 

385 

LET C=C—R 

390 

0 

395 

-1 

IF L<0 OR L >21 THEN LET L=1 

IF C<0 OR 0 31 THEN LET C-=X 

500 

NEXT K 

550 

PRINT "PECCATO,.TOSIfl E MOR 

TO DI FAME" 

555 

STOP 

600 

PRINT RT Y-l,X-i;"GNOM" 

605 

PRUSE 100 

606 

CLS 

610 

RUN 


Listato 1. Il carattere CHR$ 151 (CHR$ 42 + INVERSE nello Spectrum) è un 
asterisco inverso e rappresenta il cibo. Il bruco è rappresentato dal carattere 
SPAZIO INVERSO (CHR$ 128, nello Spectrum CHR$ 143), e si muove sullo 
schermo alla ricerca del cibo in modo casuale. 


1 REM TOBIA SI ABBUFFA 



340 

LET L =L — CY <L) + C Y > L ) 



350 

LET C=C- (X <C) + (X>C) 



360 

PRINT RT Y.X; " - 




-* ' - i 



380 

LET Y=Y+R 



385 

LET X=X~R 



390 

0 

IF Y < 0 OR Y >21 THEN 

LET 

•< 

1) 

H 

392 

IF X<© OR X > 31 THEN 

LET 

X = 1 

0 





Listato 2. La “routine intelligente” delle linee 340 e 350 fa sì che il bruco 
raggiunga il cibo seguendo la via più breve. 


le coordinate Y, X seguendo il per¬ 
corso più breve. 

Battiamo sul listato 1 già caricato 
le linee del listato 2, e diamo il 
RUN. Vedremo Tobia precipitarsi 
sul cibo e farne grosse scorpacciate: 
il cibo sarà talmente spaventato che 
cercherà persino di fuggire, ma ine¬ 


vitabilmente finirà per essere rag¬ 
giunto dal voracissimo bruco. 

Evidentemente, con le modifiche 
apportate dal listato 2, facciamo in 
modo che le coordinate L, C su cui 
viaggia Tobia diventino nel più bre¬ 
ve tempo possibile uguali alle coor¬ 
dinate Y, X sulle quali viaggia il ci- 
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bo. Questo viene ottenuto con le 
linee: 

340 LET L = L - (Y<L) + (Y>L) 
350 LET C = C - (X<C) + (X>C) 

Analizziamo nel dettaglio lo svol¬ 
gimento di queste due linee, immagi¬ 
nando una situazione iniziale in cui 
Tobia si trova alle coordinate: 

L, C = 8, 9 

ed il cibo rimane fermo alle coordi¬ 
nate: 

Y, X = 11, 7 

Le linee 340 e 350 vengono esegui¬ 
te tante volte quanto è il valore del 
ciclo FOR K (linee 220-500) cioè 500 
volte, a meno che non accada prima 
che L diventi uguale a Y e C diventi 
uguale a X nello stesso momento. 
Come abbiamo visto, la linea 240 
non verifica che L, C e Y, X siano 
uguali, controlla invece se la posizio¬ 
ne L, C dello schermo contiene il 
carattere CHR$ 151 che rappresenta 
il cibo. 

In questo caso, evidentemente la 
posizione L, C è uguale a Y, X 
perché il cibo è situato proprio in Y, 
X. Torniamo al ciclo FOR K e vedia¬ 
mo cosa accade alle linee 340 e 350 
nel corso delle varie esecuzioni. 

K = 1 L, C = 8, 9 
Y, X = 11, 7 

Sostituendo a L, C e Y, X i rispet¬ 
tivi valori, otteniamo: 

340 LET L=8—(11<8) + (11>8) 

350 LET C=9—(7<9)+(7>9) 

L’espressione (11<8) della linea 
340 vale 0, perché è falsa in quanto 
11 non è minore di 8. Viceversa 
l’espressione (11 >8) è vera perchè 
11 è effettivamente maggiore di 8, 
quindi vale 1. Di conseguenza la 
linea 340 va interpretata: 

L = L - 0 + 1 

e poiché L valeva 8, avremo che: 

L = 8- 0 + l = 9 
Nella linea 350 succede che: 

- l’espressione (7<9) vale 1 

- l’espressione (7>9) vale 0 

quindi la linea 350 va letta così: 

C = C - 1 + 0 

e poiché C valeva 9, avremo che: 
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1 REM IOBM RTTflK 
£ REM IL CICLO FOR U 
GOLft Lfi UELOCITfi 
S SLOU 
4-0 GOTO 70 
50 PRINT RT 19.0, 


0375) RE 



K 


60 RETURN 
7© FOR K =12 TO 18 
7£ LET JK=INT (RND*5)+1 
74. FOR U = 18-UK TO 18 
76 PRINT RT U,K;CHR$ 8 
78 IF RND >.75 TMEN PRINT 


RT U 


8© 

NEXT U 


82 

NEXT K 


85 

LET 

P=© 


86 

LET 

iJK =-0 


87 

LET 

N-0 


ss 

LET 

0=0 


100 

GDSUB 58 


182 

LET 

D~13 


103 

LET 

E = 16 


105 

LET 

L =10 


186 

LET 

C. = 15 


288 

DIM 

Y (31 


205 

DIM 

X (3) 


210 

LET 

Y ( 1 ) =INT 

(RND*13)+1 

211 

LET 

X(l) =INT 

(RND*7) 

212 

LET 

Y C 2 ì =0 


213 

LET 

X (2) =INT 

(RND +271 +5 

214. 

LET 

Y(3)=INT 

(RND*18)+9 

215 

LET 

X(31= INT 

(RND*71+25 

300 

FOR 

Z-l TO 500 

302 

IF 

INKEY*< .V” 

THEN LET J 

383 

IF ■ 

JK=1 THEN 

GOTO 378 

358 

LET 

K=3 



Listato 3. Tre missili contemporaneamente si dirigono verso il centro della città. 
Sta a te intercettarli e distruggerli. Premi i tasti direzionali (5, 6, 7 e 8) per 
muoverti sullo schermo. 

Il carattere CHR$ 138 (linea 50) si ottiene con Graphics e F. CHR$ 130 si ottiene 
con Graphics e W. CHR$ 128 è lo spazio nero ( Graphics e spazio) e CHR$ 151 
è l’asterisco inverso (Graphics e B). La routine che fa convergere i missili sulla 
città (linee 410-420) è uguale a quella che dirige il bruco sul cibo (linee 340 e 350 


nel listato 2). 

C = 9- l + 0 = 8 

Manteniamo invariati i valori di Y, 
X per semplificare le cose, e passia¬ 
mo alla seconda esecuzione del ciclo 
FOR K: 

K = 2 L, C = 9, 8 
Y, X = 11, 7 

Le linee 340 e 350 vanno interpre¬ 
tate così: 

340 LET L=L - (11<9) + (11>9) 
350 LET C=C - (7<8) + (7>8) 

cioè: 

340 LET L = 9- 0 + l = 10 
350 LET C = 8- l + 0 = 7 


Alla terza esecuzione del ciclo 
FOR K abbiamo i seguenti valori: 

K = 3 L, C = 10, 7 
Y, X = 11, 7 

Le linee 340 e 350 si leggono così: 

340 LET L=L - (11< 10) + (11>10) 
350 LET C=C - (7<7) + (7>7) 

cioè: 

L = 10 - 0 + 1 = 11 
C = 7 — 0 + 0 = 7 

Tobia è arrivato sulle coordinate 
11, 7, cioè sul cibo, con tre soli 
spostamenti, seguendo la via più 
breve. 






355 PRINT RT* V(K),X(K);CHR$ 151 

350 IF Y(K)=D AND XCKJ-E THEN G 
OTO 1500 
365 LET K =K - 2. 

368 IF K<>0 THEN GOTO 355 

370 PRINT RT N,0;" “ 

371 PRINT RT L.Cj _ ___ 

372 IF PEEK (PEEK 16398+256*PEE 
K 16399)=151 THEN GOTO 1000 

373 PRINT RT 

374- IF JK = 1 THEN GOTO 377 

375 FOR 0=1 TO 25 

376 NEXT U 

377 LET N=L 

378 LET 0=0 

380 LET C=C+(INKEY$="8“)-CINKEY 

$s"5") 

385 LET L=L+ (INKEY*="6"> - CINKEY 
$="7") 

390 IF OK=l THEN GOTO 4-99 
4.00 LET K =3 

405 PRINT RT Y(K) ,X(K3 ; " ** 

410 LET Y CK) =Y (K) - (O <Y (K) ) + CD >Y 
(K) ) 

420 LET X<K) =X(K) -(E<X<K) ) + (E>X 
CK) ) 

430 LET K =K — 1 

440 IF K < > © THEN GOTO 40S 

499 LET JK=0 

500 NEXT Z 
1000 LET 0=3 

1005 PRINT RT Y CO) ,X <U) ; " ** 

1010 LET 0=0-1 

1015 IF O<>0 THEN GOTO 10@5 
1620 ‘ LtT ’ P —{1£•'— i L —"i 3r-2 
1©30 PRINT RT Si /16-CLEN STR$ P) 
/S; P 

104© GOTO 102 
1500 PRUSE 100 
1510 CLS 
1520 RUN 


11 fatto che il cibo tenti di fuggire è 
del tutto irrilevante, perché la fuga si 
svolge secondo criteri di casualità 
mentre invece l’inseguimento e la 
cattura vengono effettuati con fred¬ 
da e calcolata determinazione. 

Immagino che a questo punto sarà 
sorto tra i lettori un vasto movimen¬ 
to pro-cibo. Potrei suggerire di ren¬ 
dere intelligente anche la fuga, con 
queste variazioni a) listato: 

380 LET Y=Y + (L<Y) - (L>Y) 
385 LET X=X + (C<X) - (C>X) 

A conclusione di questo paragrafo 
osserviamo che abbiamo usato una 
routine intelligente (la linea 340 e la 
350 sono due versioni di una identica 
routine) per rendere efficace la ricer¬ 
ca del cibo, e potremmo usare una 
seconda routine intelligente (deriva¬ 
ta dalla prima) per rendere il cibo 
imprendibile. In questo secondo ca¬ 
so però peggioreremmo la situazione 
iniziale, quando almeno qualche vol¬ 
ta Tobia mangiava. Perciò continue¬ 
remo ad usare la prima routine la¬ 
sciando che il cibo segua il suo desti¬ 
no naturale, che consiste nell’essere 
predato. 



in 


m 


ZX8I 


a casa 
vostra subito ! 


Se volete riceverlo velocemente compiiate 
e spedite in busta il "Coupon Sinclair" e 
riceverete in OMAGGIO il famoso libro 
"Guida al Sinclair ZX81" di ben 264 pagine, 
del valore di L. 16.500. 


Descrizione 

Qt. 

Prezzo 

unitario 

Totale 

L. 

Personal Computer ZX81, con alimentatore 0,7 A, 
completo di manuale originale Inglese e cavetti 
di collegamento al televisore e registratore. 


L. 99.000 


Modulo di espansione di memoria 16K RAM 


L. 99.000 


Modulo di espansione di memoria 32K RAM 


L. 160.000 


Modulo di espansione di memoria 64K RAM 


L. 250.000 


Interfaccia Centronics 


L. 120.000 


Espansione Grafica 


L. 130.000 


Stampante ZX Print, con alim. da 1,2 A 


L. 180.000 


Cavo coll, interfaccia Centronics 


L. 38.000 



Desidero ricevere il materiale indicato nella tabella, a mezzo pacco raccomandato, 
contro assegno, al seguente indirizzo: 



Partita I.V.A. o, per i privati 
Codice Fiscale 


EXELCO 

Via G. Verdi, 23/25 

20095 - CUSANO MILANINO (MILANO) 


V 1 / Sarà data precedenza alle spedizioni, se assieme all'ordine verrà incluso un anticipo di 
V J almeno L. 10.000. 

[ I prezzi vanno maggiorati dell'IVA 18%. Aggiungere L. 5.000 per il recapito a domicilio 

/VVattenzionei 

'J | vJTutti i nostri prodotti hanno la garanzia italiana di un anno,data dalla SINCLAIR. 


P.S. 10 - 11/83 




























































































































































Due programmi 


La routine intelligente appena 
presentata può essere usata vantag¬ 
giosamente in una miriade di occa¬ 
sioni diverse. Nei listati 3 e 4 si 
determina il movimento degli ag¬ 
gressori. 

Nel listato 3 (ICBM attak) voi 
siete l’asterisco che appare più o 
meno sopra la città da difendere. Da 
tre opposte direzioni 3 missili ICBM 
piombano sulla città cercando di 
distruggerla. Il vostro compito è di 
contrastare il loro attacco, intercet¬ 
tandone almeno uno. I missili viag¬ 
giano sulle coordinate Y, X; siccome 
abbiamo 3 missili, conserviamo le 
coordinate di ciascuno di essi negli 
elementi dei due vettori Y (3) e X 
(3). Le linee 410 e 420 fanno in modo 
che i missili si dirigano verso il centro 
della città (coordinate D, E) modifi¬ 
cando i valori di Y (K), X (K) ap¬ 
punto in funzione di D, E. 

Potete muovere premendo 5, 6, 7 
e 8. Ogni volta che un missile viene 
intercettato il punteggio si incremen¬ 
ta e tutti i missili riprendono l’attac¬ 
co dalle posizioni iniziali. 

La linea 372 interroga il display 
file per sapere se la posizione L, C 
che sta per essere occupata dal vo¬ 
stro intercettore contiene un missile 
(CHR$ 151, asterisco inverso). In 
caso affermativo il programma passa 
alla linea 1000. 

Le linee 380 e 385 vanno interpre¬ 
tate tenendo conto che se le afferma¬ 
zioni tra parentesi sono vere valgono 
1, se sono false valgono zero. Quin¬ 
di, se voi avete premuto per esempio 
8, la linea 380 vale: 

C + 1 - 0 

e l’intercettore si sposta verso destra 
di una posizione perché C rappresen¬ 
ta la coordinata relativa alle colonne. 

Se invece avete premuto 6, allora: 

C = C + 0 - 0 

L = L + 1 - 0 

cioè C rimane invariata, e L si incre¬ 
menta di 1 (l’intercettore si abbassa 
di una posizione). 

Nel listato 4 ( Ardito convoglio) 
siete alla guida di un convoglio nava¬ 
le ed avete quasi raggiunto il porto di 
destinazione (le tre H inverse sulla 
destra) quando un nugolo di motove¬ 
dette nemiche, armate fino ai denti, 



; trb as 
A; trb 


1 REM ORDITO CONVOGLIO 
S REM IL CICLO FOR U (280) RE 
COLO LR UELOCITfi 
5 SLOU 
SO GOTO 70 

55 CLS ___ 

P R INT "■■■■■■■■■■■I 

~PRXRT TRB 5;"ORDITO CONUOGL 

PRINT 


70 PRINT RT 19,0; 

72 GOSUB 56 

73 LET N=0 
74. LET 0=0 
78 PRINT RT 13,29; "1 

;"JW";TRB 31; -y; TRB 
31;-y-; TRB si;’y 
90 FOR K =3 TO 17 
92 FOR U=6 TO 27 

94 IF RND > » 92 THEN PRINT RT K, 
U; ''O" 

96 NEXT U 

97 NEXT K 

98 LET P=0 
100 LET L=13 
102 LET C=0 

104 PRINT RT L,C;CHR$ 151 
110 DIM Y(3) 

112 DIM X ( 3 ) 

114 LET Y (1) = INT 

115 LET X tlì =INT 

116 LET Y t2J =0 

118 LET X(2)=INT 

119 LET Y (3) = INT 

120 LET XÌ3)=31 
200 FOR J=1 TO 5O0 
210 LET Z=1 

215 PRINT RT Y(2),X(2); 

220 IF PEEK (PEEK 16398+256tPEE 
K 16399)=52 THEN GOSUB 1000 
222 IF Y(Z)=L RND X(Z)=C THEN G 
OTO 1500 

225 PRINT RT Y (Z) ,X (Z> ,CHR* 130 
230 LET Z=Z+1 

235 IF Z<4 THEN GOTO 215 

236 PRINT RT N,Q," " 

250 PRINT RT L,C; 

255 IF PEEK (PEEK 16398+256*PEE 
K 16399)=52 THEN GOTO 1500 
260 IF PEEK (PEEK 16396+256*PEE 
K 16399)=136 THEN GOTO 2000 
270 PRINT RT L,C;CHR* 151 
260 FOR U=1 TO 25 
282 NEXT U 
265 LET N=L 
290 LET D=C 

300 LET C=C+ iINKEY* = ”8") -(INKEY 
*="5”) 

305 LET L=L+(INKEY*=”6")-(INKEY 
*="7”) 

350 LET Z=1 

355 PRINT RT f (Z> ,X (Z) ; “ " 

360 LET Y (Z) =Y (Z) — (L<Y (Z) ) + <L>Y 


CRND+5) 

(RND-*11) 

(RND*16)+11 
(RND+12) 


(Z) ) 

370 LET X<Z) =X (Z) - (C<X(Z) ) + (C>X 
<Z) ) 

380 LET Z=Z+1 

365 IF Z<4 THEN GOTO 355 

SCO NEXT J 

sia RUM 

1000 PRINT RT Y(Z),X(Z);"0“ 

1002 LET Y(Z)=INT (RND+10) 

1004 LET X(Z)=31 

1010 LET P=P + INT ( (RND *8) +1) **2 
1020 PRINT RT 21,16 —(LEN 5TR* P) 
✓2; P 

1030 RETURN 
1500 GOSUB 55 

1510 PRINT RT 10,0;"PECCATO.." 
1512 PRINT "IL CONUOGLIO E STRTO 
DISTRUTTO" 

1520 GOTO 2500 
2000 GOSUB 55 

2010 PRINT RT 10,C;"O.K. HIS3ION 
E RIUSCITA" 

2S2S PRINT RT 14,16-(LEN STR* P) 

^2 • p 

2500 INPUT U* 

2510 CLS 
2520 RUN 


Listato 4. Sei alla guida di un convoglio navale e devi raggiungere il porto 
evitando le motovedette nemiche. Queste puntano su di te (linee 360 e 370) e 
l’unico modo per evitarle consiste nel ripararsi dietro gli scogli sommersi. 

Il carattere CHR$ 8 si ottiene con Graphics e H, CHR$ 6 con Graphics e T. I 
due asterischi della linea 1010 indicano l’elevazione a potenza e si ottengono con 
SHIFT e H. 
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vi piomba addosso. Fortunatamente 
per voi la zona è piena di scogli 
sommersi di cui conoscete la posizio¬ 
ne: l’unica tattica di salvezza consiste 
nell’attirare verso di voi le motove¬ 
dette e ripararvi aH’ultimo momento 
dietro gli scogli, cosicché, nello slan¬ 
cio preso per abbordarvi, i natanti 
nemici vi si infrangono addosso. 
Avanzando e riparandovi di scoglio 
in scoglio potete forse raggiungere la 
sicurezza del porto. Attenzione, gli 
scogli sono pericolosi anche per voi. 
Anche in questo gioco potete muo¬ 
vere premendo 5, 6, 7 e 8. 

Tobia e gli ostacoli 

Torniamo al nostro amico Tobia, 
che nel frattempo si è rimpinzato ed 
è cresciuto veramente molto. Cari¬ 
cate il listato 5 e date il RUN: lo 
vedrete muoversi sullo schermo e 
strisciare con un andamento tipico 
in direzione del cibo. Stavolta però 
si verifica un inconveniente del tutto 
imprevisto: davanti al cibo si erge 
un ostacolo, un lungo muro. Una lu¬ 
certola, o un topo non ci pensereb¬ 
bero due volte ad aggirarlo, ma To¬ 


bia ha un solo milligrammo di cer¬ 
vello per cui continua a puntare nel¬ 
la direzione in cui sa trovarsi l’ago¬ 
gnato cibo, anche se non riesce a 
fare un passo avanti perché il muro 
è insuperabile frontalmente. 

Ad un certo punto accade che il 
cibo, sentendosi sicuro, si fa più 
intraprendente e si affaccia da un la¬ 
to del muro per sbeffeggiare Tobia. 
Mal gliene incoglie: un secondo bru¬ 
co sbuca fuori da chissà dove e se lo 
mangia. Tobia però continua a 
rimanere a bocca asciutta. Volete 
aiutarlo ad aggirare il muro? 

Registrate a parte il listato 3 che 
servirà ancora, e battetegli sopra le 
linee del listato 4 dando poi il RUN. 
Vedrete Tobia camminare deciso fi¬ 
no al muro, qui fermarsi e dopo un 
momento di esitazione puntare di¬ 
rettamente verso il basso, fino alla 
base del muro; lo vedrete poi risali¬ 
re lungo il lato opposto fino a cattu¬ 
rare il cibo. 

II cammino di Tobia procede re¬ 
golare finché non incontra di fronte 
a sé il muro (carattere CHR$ 136). 
La linea 236 riconosce questa situa¬ 


zione e fa saltare alla linea 700 dove 
il percorso di Tobia viene modifica¬ 
to in conseguenza. In pratica, si au¬ 
menta di uno il valore di L lasciando 
invariato il valore di C, cosicché 
Tobia si abbassa di una posizione 
nello schermo. La linea 760 control¬ 
la se di fronte c’è ancora il muro. In 
questo caso, il programma passa alla 
linea 360, cioè vengono saltate le 
linee 335 e 340 che avrebbero indi¬ 
rizzato il bruco verso il cibo, quindi 
addosso al muro. Quando invece al¬ 
la linea 760 verifichiamo che il muro 
è finito, (cioè quando il carattere di 
fronte a Tobia non è più un caratte¬ 
re CHR$ 136) allora il controllo dei 
movimenti ritorna alle linee 335 e 
340, che fanno puntare direttamente 
sul cibo. 

Anche stavolta dunque tutto be¬ 
ne: abbiamo insegnato al nostro 
amico bruco a superare gli ostacoli. 

Le linee 9250-9340 del listato 5 
regolano gli spostamenti del bruco 
sullo schermo. Il bruco è composto 
da una testa (spazio inverso) seguita 
da 4 caratteri O e da un carattere 
spazio: complessivamente 6 caraffe- 


in 

Spectrum 


lair 



a casa vostra 
subito ! 

CON SUPER GARANZIA TOTALE 

Se volete riceverlo velocemente compilate 
e spedite in busta il "Coupon Sinclair" e 
riceverete in OMAGGIO il famoso libro 
"Guida al Sinclair ZX Spectrum" di ben 
320 pagine,del valore di L. 22.000, 


EXELCO 

Via G. Verdi, 23/25 

20095-CUSANO MI LANINO (MILANO) 


Descrizione 

Qt. 

Prezzo 

unitario 

Totale 

L. 

Personal Computer ZX Spectrum 16K RAM con 
alimentatore, completo di mauale originale 

Inglese e cavetti di collegamento. 


L. 299.000 


Personal Computer ZX Spectrum 48K RAM con 
alimentatore, completo di mauale originale 

Inglese e cavetti di collegamento. 


L. 399.000 


Kit di espansione 32K RAM 


L. 99.000 


Stampante Sinclair, ZX, 
con alimentatore da 1,2 A. 


L. 180.000 


Guida al Sinclair ZX Spectrum. 


L. 22.000 


Cassetta programmi dimostrativi per il rapido 
apprendimento alla programmazione e utilizzo 
dello ZX Spectrum in Italiano. 


L. 48.000 



Desidero ricevere il materiale indicato nella tabella, a mezzo pacco raccomandato, 
contro assegno, al seguente indirizzo: 




Sarà data precedenza alle spedizioni, se assieme all'ordine verrà incluso un anticipo di 
almeno L.10.000. 

I prezzi vanno maggiorati dell'IVA 18%. Aggiungere L. 5.000 per il recapito a domicilio. 

ATTENZIONE! 

Tutti i nostri prodotti hanno la garanzia italiana di un anno, data dalla SINCLAIR. 


P.S./10-11 83 


































































































































































ri, che richiedono, per essere stam¬ 
pati, l’indicazione di 6 coppie di 
coordinate. Queste sono conservate 
nei vettori P (6) e Q (6). Quando il 
bruco si muove, imita l’andamento 
di un treno (dove passa il locomoto¬ 
re passeranno prima o poi tutti i va¬ 
goni). Così dove passa la testa del 
bruco passeranno tutte le quattro O 
che ne costituiscono il corpo, e per 
ultimo il carattere spazio che cancel¬ 
la le tracce del passaggio. 

Con il ciclo FOR W delle linee 
9250/9280 facciamo in modo che gli 
elementi di P e Q diventino di volta 
in volta uguali all’elemento che li 
precede. Quindi l’elemento 6 diven¬ 
ta uguale all’elemento 5, e così via 
fino all’elemento 2 che diventa 
uguale all’elemento 1, (la vecchia 
posizione della testa del bruco). L’e¬ 
lemento 1 diventa naturalmente 
uguale ad L, C che rappresenta la 
posizione del locomotore, cioè della 
testa. Il ciclo FOR W delle linee 
9310-9330 stampa il bruco nelle 
nuove posizioni: ogni anello del suo 
corpo va ad occupare la posizione 
dell’anello precedente, e per ultimo 
il carattere spazio cancella l’ultima 
O. 

Tobia sceglie la strada più corta 

Purtroppo nel mondo di Tobia la 
concorrenzialità è assai alta; abbia¬ 
mo notato come, di fronte alle esita¬ 
zioni del nostro amico, un secondo 
bruco sbucava fuori e si impadroni¬ 
va della sua preda. 

Le possibilità di sopravvivenza 
saranno tanto maggiori, quanto più 
privo di incertezze sarà il suo com¬ 
portamento. Se capita di fronte al 
muro nella posizione più alta, non 
sarebbe logico superarlo puntando 
verso l’alto anziché aggirarlo tutto 
verso il basso? 

Scegliendo la strada più corta 
accorcia i tempi e può evitare che il 
cibo gli venga rubato da altri bruchi. 

Allora ricaricate il listato 5, e su 
questo battete il listato 7. Dando il 
RUN, vedrete una serie di ostacoli di 
fronte a Tobia; il nostro amico non si 
perderà d’animo e li supererà tutti, 
scegliendo sempre la via più conve¬ 
niente cioè la più breve. 

In pratica, quando Tobia arriva di 
fronte al muro, il computer inizializ- 


1 

REM TOBIO INCONTRO UN OSTOC 

OLO 

2 

REM IL CICLO POR Z (300)REO 

OLO LO UELOCITO 

5 

SLOU 

100 

DIM P(6) 

102 

DIM 0(6) 

110 

LET Y=10 

120 

LET X = 4 

130 

LET L=0 

14.0 

LET C =25 

150 

LET fl*=CHR* 128+CHRS 52+CHR 

« 52+CHR* 52+CHR* 52+CHR* 0 

160 

FOR K =1 TO 6 

170 

LET P (K) =L 

1©0 

LET 0 CK) =25 +K 

190 

NEXT K 

195 

PRINT OT L,C;R* 

200 

POR K =4 TO 18 

202 

PRINT OT K,8;CHR* 136 

204. 

NEXT K 

220 

POR K = 1 TO 500 

225 

PRINT OT V.. X; "B" 

230 

PRINT OT L,C; 

235 

IP PEEK (PEEK 16398+256+PEE 

K 16399)=151 THEN GOTO 600 

240 

GOSUB 9250 

300 

FOR Z=1 TO 25 

305 

NEXT Z 

306 

IP PEEK (PEEK 16398+256+PEE 

K 16399)=136 THEN GOTO 340 

310 

GOSUB 9310 

335 

LET C=C-(X<C)+(X>C) 

340 

LET L =L-<Y <L) +(Y >L) 

360 

PRINT OT V,X;" “ 

LET O =RND +RND 

370 

375 

IP RND >.49 THEN LET 0 = -0 

380 

LET Y =Y +INT O 

390 

0 

500 

IF Y <0 OR Y >21 THEN LET Y = 1 

NEXT K 

600 

PRINT RT Y-1,X-1;"GNOM" 

605 

POUSE 100 

606 

CLS 

610 

RUN 

9250 

FOR U=6 TO 2 STEP -1 

9260 

LET P(U)=P(U-l) 

9270 

LET O CU) =© (U-l) 

9280 

NEXT U 

9290 

LET P(1)=L 

9300 

LET 0(1) =C 

9305 

RETURN 

9310 

POR U=6 TO 1 STEP -1 

9320 

PRINT OT P(UI ,OOJ);fl*(U) 

9330 

NEXT U 

9340 

RETURN 


Listato 5. In questo programma il bruco viene rappresentato in modo completo 
(stringa A$) e si muove con andamento sinuoso sullo schermo. Le linee dalla 
9250 alla 9430 determinano il suo movimento. Il bruco non riesce a superare 
l’ostacolo che lo divide dal cibo. 


1 REM TOBIfl SUPERO GLI OSTRCO 

LI 

2 REM IL CICLO POR Z (9305) R 
SGOLO LO UELOCITO 

236 IP PEEK (PEEK 16398+256*PE£ 

X 16399)=136 THEN GOTO 700 

700 LET C=C + 1 
720 GOSUB 9250 
730 LET L=L + 1 
74-0 LET C=C-1 
750 PRINT OT L,C; 

760 IP PEEK (PÉEK 16393+256»PEE 
K 16399)=136 THEN GOTO 360 
770 GOTO 335 

9305 POR Z=i TO 25 

9306 NEXT Z 


Listato 6. Battendo le linee del listato 4 sul listato 3, e cancellando le linee 300, 
305, 306, 310, il bruco acquista la capacità di superare gli eventuali ostacoli che 
lo dividono dal cibo. 
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3. REM TDBXH SCEGLIE Lfl STRRDR 
PIU CORTO 

2 REM IL CICLO POR U (S305) R 
SGOLO Lf) UcLOCITfl 
5 SUOLI 
90 LET UK =0 
120 LtT X =2 
130 LET L = 12 

204- PRINT RT K-2 ; 5;CHR* 136 
206 PRINT RT K+2,16 ;CHR$ 136 
206 PRINT RT K-2,20;CHR* 136 
215 NEXT K 

235 IF c>FEK (PEEK 16398 +256*PEE 

236 IF PEEK (PEEK 1639S+256+PEE 
K 16393)=136 THEN GOTO 700 

336 LET UK =0 " 

700 IF JKO0 THEN GOTO 750 

701 LET SU=0 

702 LET GIU =0 

710 FOR 2=PEEK 1639S+256iPEEK 1 
6399 TO PEEK 16396+256*PEEK 1639 
7 STEP -33 


720 IF PEEK 2=151 OR PEEK 2=0 T 
HEN GOTO 73© 

722 LET SU=SU+1 
725 NEXT 2 

730 FOR 2=PEEK 16396+256iPEEK 1 
6399 TO PEEK 16396+256iPEEK 1639 
7+726 STEP 33 

735 IF PEEK 2=151 OR PEEK Z=0 T 
HEN GOTO 74-6 
74-0 LET GIU =G IU +1 
74-5 NEXT 2 
74-6 LET UK = 1 
750 LET C=C+1 
752 GOSUB 9250 
755 LET C=C-1 

760 LET L =L-(GIU > =SU) +(SU >6IU) 
765 PRINT RT L,C; 

770 IF PEEK (PEEK 16396+256*PEE 
K 16399)=136 THEN GOTO 360 
_775 GOTO 335 

9305 FOR U=i TO 25 

9306 NEXT U 


Listato 7. Battere le linee del listato 5 sul listato 3 e cancellare le linee 204, 300, 
305, 306, 310. Dando il RUN, vedrete che il bruco ha acquistato la capacità di 
superare gli ostacoli scegliendo la strada più corta. 

I due cicli FOR Z delle linee 710 e 730 misurano la lunghezza del muro leggendo 
il display file. Il risultato avrebbe potuto essere ottenuto in modo più semplice 
(vedi la versione per lo Spectrum), ed il metodo presentato in questo listato 
rappresenta una curiosità. 


za due variabili, SU e GIÙ. Conta 
poi quant’è lungo il muro verso l’al¬ 
to (SU) e quanto verso il basso 
(GIÙ) e con la linea 760 decide la 
direzione verso cui muovere. La li¬ 
nea 760 contiene una routine che 
funziona in modo analogo a quella 
della linea 340 nel listato 1. 

Infatti quando GIÙ è maggiore di 
SU, significa che la strada più breve 
è quella verso l’alto, e allora 
l’espressione (GIÙ > = SU) vale 1 
ed il valore di L viene diminuito di 
1, cioè Tobia si sposta verso l’alto: 


viceversa nel caso opposto. 

I due cicli FOR Z (linee 710 e 
730) contano la lunghezza del muro 
verso l’alto e verso il basso in un 
modo abbastanza singolare, che di¬ 
venta chiaro leggendo il riquadro sul 


display file. 

Nella versione per lo Spectrum 
usiamo più semplicemente la ver¬ 
sione: 

710 FOR Z = L TO 0 STEP-1 
730 FOR Z = L TO 21 




Commodore 


vostra subito ! 


Se volete riceverlo velocemente compilate 
e spedite in busta il "Coupon VIC 20" 

EXELCO 

Via G. Verdi, 23/25 

20095 CUSANO MILANINO (MILANO) 


Descrizione 

Qt 

Prezzo 

unitario 

Totale 

L. 

Personal Computer VIC 20 


L. 199.000 


Registratore a cassetta C2N-VC1530 


L. 110.000 


Cartridge di espansione 8K RAM-VC1110 


L. 95.000 


Cartridge di espansione 16K RAM-VC1111 


L. 125.000 


Espansione per alta risoluzione 3 KB - VC1211N 


L. 75.000 


Floppy Disk VC 1541 


L. 585.000 


Stampante SEIKOSHA-GPIOOVC 


L. 560.000 


Joystick - VC1311 - singolo 


L. 10.000 


Paddle - VC1312 - la coppia 


L. 20.000 


Impariamo a programmare in Basic con il VIC20 


L. 9.000 


Guida al Personal Computer VIC20 


L. 20.000 



Desidero ricevere il materiale indicato nella tabella, a mezzo pacco raccomandato, 
contro assegno, al seguente indirizzo: 



Partita I.V.A. o, per i privati 

Codice Fiscale ———-—»—-————— L — 1 ——— 

Sarà data precedenza alle spedizioni, se assieme all'ordine verrà incluso un anticipo di 
almeno L.10.000. 

I prezzi vanno maggiorati dell'IVA 18%. Aggiungere L. 5.000 per il recapito a domicilio 


P.S. 10-11/83 












































































































































































Il risultato è lo stesso ma presen¬ 
tando le due versioni credo di offri¬ 
re maggiori spunti ai lettori. 

Facciamoci ora alcune domande. 
Cosa accade se sistemiamo il cibo 
all’interno di un labirinto? 

Possiamo insegnare a Tobia ad 
entrarvi, ed a raggiungere il cibo? 
Ed una volta trovatolo, può uscire 
dal labirinto seguendo la strada più 
corta? 

Questo è certamente possibile. 
Tobia deve affrontare il labirinto 
con una tecnica del tutto particola¬ 
re, memorizzando tutti i percorsi se¬ 
guiti all’andata e scegliendo quindi i 
più brevi per il ritorno. Cioè deve 
comportarsi come faremmo anche 
noi entrando in un edificio per la 
prima volta: in modo intelligente. 

Qualcuno obietterà che la sua 
intelligenza dipende solo dalla com¬ 
plessità della routine che determina 
il suo comportamento. 

In effetti anche la nostra intelli¬ 
genza dipende spesso dal grado di 
conoscenza o di ignoranza che ab¬ 
biamo di un determinato problema. 
È evidente però che mentre noi pos¬ 
siamo programmare il comporta¬ 
mento di Tobia, né Tobia né il com¬ 
puter possono programmare il no¬ 
stro. Riprenderemo nel prossimo 
numero il discorso sul bruco nel la¬ 
birinto. 


Il processo di apprendimento 

Il listato 8 contiene la conversione 
del programma Master Mind apparso 
sul numero 1 di Personal Software. 

Quando fa la prima mossa, il 
computer la sceglie a caso tra tutte 
le mosse possibili. In base alle valu¬ 
tazioni ricevute in risposta (tanti nu¬ 
meri giusti al posto giusto, tanti giu¬ 
sti ma fuori posto) restringe il cam¬ 
po delle mosse possibili. 

L’articolo che accompagnava il 
programma nella versione originale 
illustrava la tecnica di IA usata dal 
computer, e vi consiglio di rilegger¬ 
lo. La tecnica usata è detta del pro¬ 
cesso di apprendimento, ed è illu¬ 
strata negli schemi della figura 1, di 
cui parleremo diffusamente più 
avanti. 

Ovviamente la tecnica del proces¬ 
so di apprendimento costringe il 



Figura 1. I diagrammi illustrano 
l’andamento di un programma nel 
quale il computer faccia uso della 
tecnica di IA del processo di appren¬ 
dimento. 
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computer a ragionare veramente 
sulle mosse che fa, e se avete dei 
dubbi in proposito paragonate l’an¬ 
damento dell’algoritmo che determi¬ 
na la mossa del computer con il ra¬ 
gionamento che fareste voi per deci¬ 
dere quella mossa. 

Per esempio, se introducete il nu¬ 
mero: 

4455 

e ricevete in risposta la seguente va¬ 
lutazione: 

0 NERI (nessun numero giusto) 

0 BIANCHI (nessuno giusto fuo¬ 
ri posto) 

stabilite con sicurezza che i numeri 4 
e 5 non sono presenti nel numero 
segreto, e decidete di non adoperare 
più il 4 ed il 5 nella formulazione dei 
prossimi tentativi. Il computer pren¬ 
de la stessa decisione. Se poi intro¬ 
ducete il numero: 

2233 

e ricevete come valutazione 2 neri e 
2 bianchi, oltre a non adoperare più 
né il 4 né il 5 decidete di non adope¬ 


rare neppure l’I e il 6. Il computer 
fa altrettanto: con la tecnica del pro¬ 
cesso di apprendimento restringe il 
campo delle mosse possibili fino a 
limitarlo ad una sola, che ovviamen¬ 
te sarà quella esatta. 

Non tutti i programmi intelligenti 
usano le tecniche del processo di ap¬ 
prendimento. Un esempio è costi¬ 
tuito dal programma Pagliette (Con¬ 
versione di programmi per ZX81, 
seconda parte) pubblicato in questo 
stesso numero. Il computer gioca 
molto bene, ma sempre nello stesso 
modo perché tutta la sua strategia si 
basa sulla ricerca di particolari posi¬ 
zioni sicure: egli non migliora il livel¬ 
lo di gioco con l’esperienza e vince 
solo se le condizioni gli sono favore¬ 
voli, cioè se il numero di pagliette 
iniziale è propizio e soprattutto se 
l’awersario non conosce la sua stra¬ 
tegia (in questo caso è vera l’affer¬ 
mazione che l’intelligenza artificiale 
è una funzione della ingenuità 
umana). 

A volte in programmi come que¬ 
sto la routine che determina la mos¬ 
sa può essere talmente ben conge¬ 


gnata da rendere il computer prati¬ 
camente imbattibile quando le circo¬ 
stanze sono favorevoli. 

È il caso del programma Almeno 
una volta (listato 9). 

In questo gioco perde chi è 
costretto a togliere l’ultimo cubetto. 
Caricate il programma e provate a 
vincere almeno una volta, se ci riu¬ 
scite. Non solo il computer vi batte¬ 
rà senza fatica, ma troverà anche il 
tempo, mentre vince, di far volare 
stormi di uccelli sullo sfondo di pla¬ 
cidi panorami agresti. 

Se qualche vostro amico è scettico 
sulle capacità del computer, sotto¬ 
ponetegli questo programma e gli 
farete cambiare idea. 

Apparentemente il giocatore ha 
tutti i vantaggi: muove per primo e 
può togliere da 1 a 4 cubetti. Ne 
può anche aggiungere da 1 a 4, se i 
cubetti sono più di 10 e meno di 31. 
Eppure la vittoria va sempre al com¬ 
puter. Cerchiamo di capire il 
perché. 

In giochi come questo (per esem¬ 
pio il già citato Pagliette, e in tutti i 
giochi della famiglia del NIM) esi- 



a casa 
vostra subito ! 


Se volete riceverlo velocemente compiiate 
e spedite in busta il "Coupon CBM 64" 


EXELCO 


Descrizione 

Qt. 

Prezzo 

unitario 

Totale 

L. 

CBM 64 Personal Computer 


L. 550.000 


Registratore C2N — VC 1530 


L. 110.000 


floppy Disk VC 1541 


L. 585.000 


Stampante SEIKOSHA - GP100VC 


L. 550.000 


Reference Guide CBM 64 


L. 24.500 


Introduzione basic CBM 64 


L. 24.500 


Interfaccia IEEE 488 


L. 170.000 



Desidero ricevere il materiale indicato nella tabella, a mezzo pacco raccomandato, 
contro assegno, al seguente indirizzo: 


Nome 

Cogno 

Via 

Città 

Data 


Via G. Verdi, 23/25 

20095-CUSANO MI LANINO (MILANO) 


1 I 

X 
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C.A.P. 






I.V.A. o, per i privati 
Fiscale 





m 












Sarà data precedenza alle spedizioni, se assieme all ordine verrà incluso un anticipo di 
almeno L. 10.000 

I prezzi vanno maggiorati dell'IVA 18% . Aggiungere L. 5.000 per il recapito a domicilio. 


P:S. 10-11/83 
























































































































































1 REM RLMENO ONfì UOLTfì 

2 REM *•**■* a- ***■*•*■ * **■**■ * *** * * * 
100 GOSUB 9936 

112 LET UI=0 
114- LET UT=0 
116 LET CP=1 
116 LET 6MD=0 
122 LET RG=0 
124- LET SC=0 
200 GOSUB 9000 

210 PRINT RT 10/0;"COME TI CHXfi 
MI 

215 INPUT G$ 

220 IF LEN G*>1© THEN LET G*=G* 
(10 TO ) 

225 PRINT G$ 

230 PRINT 

24.0 PRINT "UUOI UEDERE LE REGOL 
ET ( S 7N) ” 

245 PAUSE 20000 

25© IF CODE INKEY $ =56 THEN GOSU 
6 3000 
255 SLOU 
300 LET CM=0 
305 LET TG=0 
310 LET UK=0 
320 LET NUM *26 
360 GOSUB 7000 

500 LET CM=CH+1 

501 LET TG=© 

502 GOSUB 7700 

504 PRINT RT 2,9;CM;AT 3,12;UT 
506 IF CM = X THEN PRINT RT 18,15 
•» "TOCCO 0% TE*' 

'510 PRINT RT 19,15;“ 1 PER RGGIU 
NGERE“;PT 20,15;”2 PER TOGLIERE” 
^520 IF INKEY$ = ” '* THEN GOSUB 950 

530 LET X*=INKEY* 

535 IF CODE X$<>29 AND CODE X*< 
>30 THEN GOTO 560 
550 LET SC=URL X* 

555 IF SC =1 AND NUM<=10 OR SC»1 
RND NUM>30 THEN GOTO 560 

556 GOTO 600 
560 LET BMD=S10 
562 GOTO 8260 
600 GOSUB 7500 

610 PRINT RT 18,16;"QUANTI NE”; 
TRB 16; (“TOGLI 7” RND SC=2)+{"RG 
GIUNGI 7“ RND SC=iJ 
620 IF INKEYS = ” " THEN GOSUB 950 

9 630 LET X$=INKEY* 

640 IF CODE X® <29 OR CODE X*>3S 
THEN GOTO 680 
650 LET MN=URL X* 

660 IF SC=2 THEN LET MN=-MN 
670 LET NUM =NUM +MN 

675 IF NUM <1 OR NUM>31 THEN GOT 
O 680 

677 GOTO 730 
680 LET BMD=620 
682 GOTO 8200 
700 GOSUB 1000 


702 GOSUB 7500 

705 PRINT RT 18,16;“NE HRI ”;RT 
19,16; (“TOLTI “ RND SC=2) + C'AGG 

IUNTI “ RND 3C = 1)+X* 

706 IF NUM = 1 THEN GOTO 4000 

710 GOSUB 7600 

715 PRUSE 50 

720 PR INT RT 13,1;"TOCCA R ME”; 

trb 1 ; "bh*®" 

730 PRUSE 35 

740 GOSUB 2000 

750 GOSUB 7600 

755 GOSUB 7500 

760 PRINT RT 18,15;("TOLTI " RN 

£> TG < >0) + ( "RGGIUN . " RND RG<>0)+" 

in . •• ■ trìqc • 

765'’ IF NUM = 1 THEN GOTO 4200 
770 GOTO 500 
993 STOP 

1000 REM STfiMPR SCACCHIERA 
1010 LET L = INT (NUM76) «-2+6 
1020 LET C = 16+(NUM-( (INJ (NUM 76) 

j ^ ^ ^ ^ 

1030 IF UK=1 RND SC=2 THEN GOTO 
1500 

1040 IF TG < > 0 THEN GOTO 150® 

1050 FOR K=L TO 6 STEP -2 
1060 FOR U=C TO 18 iTEP -2 
1070 PRINT RT K,U;CHR$ 128 
1090 NEXT U 
1095 LET C=£6 
1103 NEXT K. 

1110 LET UK=1 
1120 RETURN 

1500 LET KU=1S „ 

1510 FOR K=L+2 TO L STEP -2 

1520 FOR U=28 TO KJ STEP -2 
1530 PRINT RT K,U;" " 

1540 NEXT « 

1550 LET KU=C+3 
1560 NEXT K 
1580 GOTO 1120 

1999 REM IL COMPUTER SCEGLIE LR 
•lOSSR 

2000 LET TG=0 

2010 LET RG=0 

2012 LET SC=0 

2015 IF NUM<=26 THEN GOTO 2030 
2018 IF RND>.60 RND NUM<31 THEN 
GOTO 2025 

202® LET TG=NUM-26 
2022 GOTO 2130 
2025 LET RG =31-NUM 
2027 GOTO 2130 

2030 IF NUM < =5 THEN LET TG=NUM -1 

2040 IF TG < >0 THEN GOTO 2130 

2050 FOR 2=6 TO NUM STEP 5 

2060 FOR Ut =2 TO 2+4 

2070 IF NUM=U THEN GOTO 2090 

2080 NEXT U 

2085 NEXT 2 

2090 IF NUM>10 RND RND>.65 THEN 

GOTO 2120 

2100 LET TG=ll-2 


Listato 9. Il computer visualizza sulla destra dello schermo 26 cubetti. Il 
giocatore ed il computer a turno possono toglierne o aggiungerne dal a 4, ma le 
aggiunte si possono fare solo quando i cubetti sono meno di 31 e più di 10. Chi 
toglie l’ultimo cubetto perde. Scopo del gioco è riuscire a battere ALMENO 
UNA VOLTA il computer. L’impresa è più diffide di quanto sembri. 

Il carattere CHR$ 136 (linea 7110) si ottiene con Graphics e A e non va confuso 
con CHR$ 8 (Graphics e H). Quando non sapete esattamente quale carattere si 
voglia intendere con una CHR$ e non avete il manuale a portata di mano, date il 
comando diretto: PRINT CHRS x e cercate poi sulla tastiera il carattere che 
vedrete apparire sullo schermo. 


stono delle posizioni sicure: cioè, se 
ad un certo momento del gioco uno 
dei giocatori riesce a lasciare un cer¬ 
to numero di cubetti sul campo do¬ 
po la sua mossa, ha buone probabi¬ 
lità di vincere; talvolta ne ha la cer¬ 
tezza. 

La posizione più sicura è ovvia¬ 
mente 1, perché lasciando 1 cubetto 
l’avversario sarà costretto a toglierlo 
ed avrà perso. 

La seconda posizione sicura in Al¬ 
meno una volta è 6. Quando il gioca¬ 
tore si trova di fronte 6 cubetti, può 
al limite: 

- toglierne 1; ne rimangono 5, e se 
l’avversario ne toglie 4 ha vinto; 

- toglierne 4; ne rimangono 2, e 
l’avversario ne toglie 1 assicuran¬ 


dosi la vittoria. 

Possiamo affermare che se il gio¬ 
catore spinge l’avversario nella posi¬ 
zione 6, lo ha già spinto inevitabil¬ 
mente nella posizione 1. 

Esiste una posizione precedente 
alla 6, dalla quale il giocatore preci¬ 
piti inevitabilmente nella 6? Sicura¬ 


mente esiste, ed è la 11. Infatti, dal¬ 
la posizione 11 il giocatore può 
togliere al massimo 4 cubetti scen¬ 
dendo a 7, e l’avversario ne toglie 
uno lasciandolo a 6. E se invece di 
toglierne 4 li aggiunge? Allora sale a 
15, e l’avversario aggiungendone 1 
lo sistema a 16. 
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7607 PRINT RT £0,1;" 

7610 RETURN 

7700 PRINT RT 18,2; "ZX81";TAB 2; 
"MOSSA ";CH;TRB 2;"LITTORIE ";UI 
771© RETURN 
3000 GOSUB 9000 

8010 PRINT RT 7,0; "IO SONO IL TU 
0 fiUUERSRRIO IN QUESTO GIOCO" 
3020 PRINT "R TURNO POSSIAMO TOG 
LIERE O RG- GIUNGERE Dfi 1 ft 4- CU 
3ETTI RLLR TRIBELLA CHE UEDRRI S 
ULLR DESTRA DEL UIDEO" 

8030 PRINT 

804-0 PRINT "LE AGGIUNTE SI POSSO 
NO FARE SOLGOURNDO I CUBETTI SON 
O PIU DI 10 O MENO DI 31" 

30S0 PRINT 

8060 PRINT "CHI TOGLIE L ULTIMO 
PERDE" 

>70 PRINT RT 21,0; "0 


d?!S0 PAUSE 2C000 
8110 RETURN 
8200 LET DMB =BMD 
3205 LET BMD=0 
8210 POKE 164-18,0 
8220 PRINT RT 23,8; "I 

3238 PAUSE 120 
824-0 PRINT RT 23,0; " 

3250 POKE 164-18,2 
3260 GOTO DMB 
9000 CL.S 

90 10 PRINT 

9011 ' PRINT „ 

9020 PRINT TRB 7;"ALMENO UNR UOL 
Tfi" 

9021 PRINT 
9030 PRINT 


li 


904-0 RETURN 
9502 IF INKEY $ < >"" THEN 
9553 LET D$=G$(13)+0$ 
9555 IF INKEYgO" " THEN 
9566 LET 0$=0$( TO 13) 
9557 PRINT RT S,1;0* 
3558 IF INKEY$ < >"" THEN 
9560 LET Pt=P$(13)+P$ 
9552 IF INKEYS THEN 

3563 LET ( TO 13) 



PRINT RT 7,1.; 

S 5 55 

IF XNKEY $<>'’” 

o c? *5 $3 

LET ©$«©**13) 


IF INKEY®<>"" 

5 C ,7 1 

LET TO 

?o ?2 

PRINT RT 8,1; 

■? '& <1 

IF INKEY *< >'“' 


GOTO 950® 

39GS 

LET 0$=" > 

S936 

LEV P$- ' > 


LET ©$ = > 

9950 

RETURN 


RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 

RETURN 


> 

> > 
> > 


2110 GOTO 2130 
2120 LET RG=Z+5-U 
2138 LET NUM =.NUM +RG -T G 
214-0 GOSUB 1O00 
2150 RETURN 

4000 PP TT AT^^jLB; "HI 

4.01© u r 

4-020 PROSE 20000 
4.030 LET CP=CP + 1 
484-0 GOTO 300 
4.200 PRINT RT 10,18; 

4210 LET CP=CP41 
4228 L.ET UI=UI + 1 
4225 PRINT RT 19. 
aHH";RT 23,15; 

4230 PROSE 20800 
4240 GOTO 300 
7000 REM STRMPfi DEL QUBDRO 
7005 CLS 
7810 PRINT 


; RT 11 



. _Jt0 FQR K =1 TO 20 
7022 PRINT RT K,0;CHR* 128;TRB 3 
l; CHRS 128 
7025 NEXT K 

7035 PRINT RT 17,1; "| 


704® FOR K=4 TO 17 

7045 PRINT RT K,14;CHRS 128 

7050 NEXT K 

7060 PRINT RT 1,14; "i " ; TRB 14; “| 
" ; TRB 14; "I “ 

7065 PRINT RT 18,14 ; ;TRB 14;" 

ìi " ; TRB 14; “3 " 

7075 PAINI RT 1,2;G$;RT 2,2;"MOS 
Sfl";RT 3,2;“VITTORIE” 

7100 PRINT RT 1,18;-RLMENO-;RT 2 
,18;"UNR";RT 3,18;"UOLTR" 

PPXNT RT B 9,4,^||^TRB T 2 è 

4-T^wBBSm»- ; TRB 3; ai 

7115 PRINT RT 14 , S ; "8 " ; TRB ©;“|" 

’ ’I’QP g • *‘j ..." 

7120 PRINT RT 10,13; ’W ; T RB 12^” 

WST' ; trb il; 12; "MI 

13, “i"; TRB 12; " E “ ; TRB 13; 

7199 GOSUB 1000 

7200 RETURN 
7500 PRINT RT 18,15;" 

7505 PRINT RT 19,15;” 

7508 PRINT RT 20,15;" 

7510 RETURN 
7600 PRINT RT 18,1;" 


TRE 


7605 PRINT RT 19,1;" 


A questo punto avete capito che 
la sequenza di posizioni vincenti (o 
perdenti per chi ci cade) è la 
seguente: 

I - 6 - 11 - 16 - 21 - 26 - 31... 

Ora, il gioco comincia proprio 
con 26 cubetti, e la prima mossa toc¬ 
ca proprio a voi. Quando il gioco 
non è ancora cominciato voi avete 
già perso. Potreste sperare di vince¬ 
re solo se il vostro avversario si di¬ 
straesse, ma il computer non si di¬ 
strae e non sbaglia mai. Dunque il 
computer nel gioco Almeno una vol¬ 
ta è imbattibile. 

Per confortarvi di questa delusio¬ 
ne, vi do due suggerimenti. 

II primo è la sequenza vincente per 


il gioco Pagliette : 

I - 5 - 9 - 13 - 17 - 21 - 25 - 29... 

In questo gioco il numero di pa¬ 
gliette viene determinato casual¬ 
mente all’inizio, per cui potete vin¬ 
cere voi anziché il computer quando 
il numero di pagliette è idoneo e se 
evitate di distrarvi. Tuttavia capite 
bene che se anche voi oltre al com¬ 
puter conoscete la strategia delle 
posizioni vincenti la partita è già 
finita ancor prima di essere comin¬ 
ciata. 

II secondo suggerimento consiste 
nelle modifiche da apportare al pro¬ 
gramma Almeno una volta, per dare 
anche allo sfidante qualche chance di 
vittoria. Dovete battere sul program¬ 


ma già caricato le seguenti linee: 

320 LET NUM = INT (RND * 
12) + 15 

2105 IF TG = 0 THEN LET TG 
= INT (RND * 4) + 1 
2125 IF AG = 5 THEN LET AG 
= INT ((RND * 4 AND 
NUM < 28) + (RND * (31- 
NUM) AND NUM > 27)) 
+ 1 

Anche in questo caso però l’esito 
della partita è già determinato e 
dipende dal numero di cubetti pre¬ 
senti sullo schermo. Vale la pena di 
bruciare così un programma come 
Almeno una voltai 

Sicuramente no. Nella seconda 












Listato 1 

2 REM LA LINEA 307 REGOLA LA VELOCITÀ 
307 PAUSE 30 

Listato 2 

Nessuna variazione 

Listato 3 

2 REM LA LINEA 305 REGOLA LA VELOCITÀ 
305 PAUSE 30 

Listato 4 

2 REM LA LINEA 9307 REGOLA LA VELOCITÀ 
9307 PAUSE 30 

Listato 5 

2 REM LA LINEA 9307 REGOLA LA VELOCITÀ 
9307 PAUSE 30 

Listato 6 

Cancellare la linea 376 

2 REM LA LINEA 375 REGOLA LA VELOCITÀ 
375 PAUSE 30 

Listato 7 

2 REM LA LINEA 283 REGOLA LA VELOCITÀ 
283 PAUSE 50 

Listato 8 

Nessuna modifica 

Listato 9 

Cancellare la linea 100, e tutte le linee dalla 9500 in poi. 
520 PAUSE 20000 
620 PAUSE 20000 


Figura 2. Variazioni da apportare ai listati per 
renderli compatibili allo ZX80 nuova ROM 8 Kbyte. 


parte di questo articolo, oltre ad in¬ 
segnare a Tobia a muoversi in un 
labirinto, cambieremo radicalmente 
la routine che determina la mossa 
nel programma Almeno una volta. 
Faremo in modo che il computer 
impari (nel corso delle partite gioca¬ 
te) a memorizzare le mosse migliori 
utilizzandole poi nel momento op¬ 
portuno: faremo in modo che il com¬ 
puter impari a giocare. 


Osservazioni sui listati 8 e 9 

Nei programma Gara di Master 
Mind il computer gioca molto bene 
ma è relativamente lento: in media 
impiega fino a 2 minuti per fare la 
mossa. Se ciò vi spazientisce conside¬ 
rate che programmi simili richiedono 
tempi anche più lunghi. Comunque 
potete adoperare il programma “a 
senso unico”, cioè facendo in modo 
di essere sempre voi a dover indovi¬ 
nare il numero proposto dal compu- 


Llstato 1 

Cancellare la linea 240 
150 LET a$ = CHR$ 143 
226 PRINT AT y, x; INVERSE 1 ; CHR$ 42 
302 IF y=l AND x=c THEN GOTO 600 

Listato 2 

Nessuna modifica 

Listato 3 

Cancellare le linee 2, 235, 300, 305 
110 LETy = 14 
130 LET I = 10 

150 PRINT CHR$ 143 + CHR$ 79 + CHR$ 79 + CHR$ 79 + CHR$ 79 
+ CHR$ 32 
200 FOR k = 3 TO 18 
202 PRINT AT k, 8; CHR$ 133 
225 PRINT AT y, x; INVERSE 1; CHR$ 42 
230 IF l=y AND c=x THEN GOTO 600 
306 IF CODE SCREEN$ (I, c) = 0 THEN GOTO 340 

Listato 4 

236 IF CODE SCREEN$ (I, c) = 0 THEN GOTO 700 
760 IF CODE SCREENS (I, c) = 0 THEN GOTO 360 

Listato 5 

110 LET y = INT (RND * 10) + 6 
130 LETI = 10 

204 PRINT AT k - 2, 5; CHR$ 133 

206 PRINT AT k + 2, 16; CHR$ 133 

208 PRINT AT k - 2, 20; CHR$ 133 

236 IF CODE SCREEN$ (I, c) <> 0 THEN GOTO 700 

710 FOR z = I TO 0 STEP - 1 

720 IF CODE SCREENS (z, c) <> 0 THEN GOTO 730 

730 FOR z = I TO 21 

735 IF CODE SCREEN$ (z, c) <> 0 THEN GOTO 746 
770 IF CODE SCREENS = 0 THEN GOTO 360 

Listato 6 

Cancellare le linee: 87, 88, 370, 371, 372, 374, 377, 378 
50 PRINT AT 19,0; “32 caratteri CHR$ 143“ 

54 PRINT “32 caratteri CHR$ 143” 

76 PRINT AT w, k; CHR$ 143 
78 IF RND > .75 THEN PRINT AT w, k; CHR$ 137 
355 PRINT AT y (k), x (k); CHR$ 127 

372 IF y (k) = I AND x (k) = c THEN GOTO 1000 

373 PRINT AT I, c; CHR$ 134 

2000 REM CHR$ 143 = SPAZIO NERO, GRAPHICS E 8 

Listato 7 

Cancellare le linee 73, 74, 104, 236, 260, 285, 290 
56 PRINT “32 caratteri CHR$ 143” 

62 PRINT "32 caratteri CHR$ 143” 

76 PRINT AT 13, 29; INVERSE 1; “HHH" 

78 PRINT AT 14, 29; CHR$ 134 + CHR$ 134 + CHR$ 134 

79 FOR k = 15 TO 21 

80 PRINT AT k, 31 ; CHR$ 143 
85 NEXT k 

99 LET jk = 0 

202 IF INKEY$ <> "" THEN LET jk = 1 

203 IF jk = 1 THEN GOTO 250 

220 IF y (z) = I AND x (z) = c THEN GOTO 1500 

222 IF CODE SCREENS (y (z), x (z)) <> 32 THEN GOSUB 1000 

225 PRINT AT y (z), x (z); INVERSE 1 ; “0” 

252 IF I = 13 AND c = 29 OR I = 13 AND c = 30 OR I = 13 AND 
c = 31 THEN GOTO 2000 

255 IF CODE SCREENS (I, c) <> 32 THEN GOTO 1500 
270 PRINT AT I, c; CHR$ 127 
290 PRINT AT I, c; “spazio” 

310 IF jk = 1 THEN GOTO 499 
499 LET jk = 0 
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Listato 8 

Cancellare le linee 859, 864 

280 PRINT TAB 5; “CROCE = TOCCA A TE”; AT 16, 5; “TESTA = TOCCA A ME" 

645 PRINT AT 6, 19; INVERSE 1: “NERI ?" 

648 IF CODE INKEY$ < 48 OR CODE INKEY$ > 52 THEN GOTO 645 
660 PRINT AT 6, 25; INVERSE 1; “BIANCHI” 

786 PRINT # 1; AT 1,0; “CALMA, STO PENSANDO...” 

848 PRINT # 1 ; AT 1, 0; “20 spazi” 

860 PRINT AT 22, 0; “AVRESTI DOVUTO BATTERE”; b; “”; b$; “E"; w; “ ”; w$ 

863 PRINT AT 22, 0; “40 spazi” 

Listato 9 

Cancellare: 7060, 7065, 7110, 7115, 7120, 8210, 8250 
100 GOSUB 9900 

250 IF CODE INKEY$ = 115 THEN GOSUB 8000 

535 IF CODE x$ <> 49 OR CODE x$ <> 50 THEN GOTO 560 

610 PRINT AT 18, 16; “QUANTI NE”; AT 19, 16; (“TOGLI ?” AND se = 2) + ("AGGIUNGI ?” AND se = 1) 

640 IF CODE INKEY$ < 49 OR CODE INKEY$ > 52 THEN GOTO 680 
720 PRINT AT 18, 1 ; "TOCCA A ME”; AT 19, 1 ; INVERSE 1 ; "VADO” 

1070 PRINT AT k, w; CHR$ 143 
7010 PRINT “32 caratteri CHR$ 143” 

7015 PRINT AT 21, 0; “32 caratteri CHR$ 143” 

7016 FOR k = 1 TO 20: PRINT AT k, 14; CHR$ 138: NEXT k 
7022 PRINT AT k, 0; CHR$ 143; AT k, 31; CHR$ 143 

7030 PRINT AT 4, 1; "14 caratteri CHR$ 143 + 16 caratteri CHR$ 131” 

7035 PRINT AT 17, 1; “14 caratteri CHR$ 143 + 16 caratteri CHR$ 140” 

7045 PRINT AT k, 14; CHR$ 143 

7110 FOR k = 4 TO 8: FOR w = 9 TO 12 

7112 INK 4: PRINT AT w, k; CHR$ 144: NEXT w: NEXT k 

7114 PRINT AT 10, 2; CHR$ 144; AT 11,2; CHR$ 144 + CHR$ 144; 

AT 13,3; CHR$ 144; AT 13, 8; CHR$ 144; AT 12, 9; CHR$ 144; 

AT 11, 9; CHR$ 144 + CHR$ 144; AT 10, 9; CHR$ 144 
7120 PRINT AT 10, 13; CHR$ 144; AT 11, 12; CHR$ 144 + CHR$ 144; 

AT 12, 13; CHR$ 144; AT 13, 12; CHR$ 144 + CHR$ 144 
7130 INK 0 

7140 PRINT AT 13, 5; CHR$ 133 + CHR$ 133; AT 14, 6; CHR$ 138; 

AT 15, 6; CHR$ 133; AT 16, 6; CHR$ 143 
7145 PRINT AT 14, 13; CHR$ 138; AT 15, 13; CHR$ 133; AT 16, 13; CHR$ 138 
7700 PRINT AT 18, 2; “SPECTRUM”; AT 19, 2; "MOSSA”; cm; AT 20, 2; "VITTORIE”; vi 
8070 PRINT AT 21, 0; INVERSE 1; "PREMI UN TASTO” 

8220 PRINT # 1; AT 1, 0; INVERSE 1; “INPUT ERRATO RIPETI PREGO” 

8240 PRINT # 1 ; AT 1, 0; “30 spazi” 

9900 REM GENERAZIONE CARATTERI SPECIALI 

9910 POKE USR “a”, BIN 01010101 

9911 POKE USR “a” + 1, BIN 10101010 

9912 POKE USR “a” + 2, BIN 01010101 

9913 POKE USR “a” + 3, BIN 10101010 

9914 POKE USR "a” + 4, BIN 01010101 

9915 POKE USR “a” + 5, BIN 10101010 

9916 POKE USR “a” + 6, BIN 01010101 
9918 POKE USR “a” + 7, BIN 10101010 

9920 POKE USR “b”, BIN 00000000 

9921 POKE USR “b” + 1, BIN 00001100 

9922 POKE USR “b” + 2, BIN 00000010 

9923 POKE USR “b” + 3, BIN 00000001 

9924 POKE USR “b” + 4, BIN 00000010 

9925 POKE USR “b” + 5, BIN 00001100 

9926 POKE USR “b” + 6, BIN 00110000 

9927 POKE USR “b” + 7, BIN 00000000 

9936 LET 0$ = "4 spazi” + CHR$ 145 + “4 spazi” + CHR$ 145 + "3 spazi” 

9938 LET P$ = “1 spazio” + CHR$ 145 + "6 spazi” + CHR$ 145 + CHR$ 145 + CHR$ 145 + CHR$ 145 + “spazio” 
9940 LET Q$ = “uno spazio” + CHR$ 145 + “6 spazi” + CHR$ 145 + CHR$ 145 + “3 spazi” 


Figura 3. Variazioni da apportare ai 
listati per renderli compatibili allo 
Spectrum. 


35 







1 REM GRRR DI MASTER MIND 

100 GOSUB 950© 

3.45 LET MN=0 
146 LET XI«0 
14? LET XT=© 

£10 GOSUB 9000 

23© PRINT RT 8,0;"COME TI CHIAM 

I?" 

240 INPUT N$ 

242 IF LEN N$>10 THEN LET N*=N* 
< TO 10) 

244 PRINT N* 

260 PRINT RT 12,0;"LRNCIO UNR M 
ONETR PER DECIDERE 1 ' 

265 PRINT "CHI GIOCO PER PRIMO" 
270 PRINT 

260 PRINT TRB 5.; “TESTR = TOCCR 
fl ME";TRB 5;"CROCE a TOCCR R TE” 
300 PRUSE 100 
302 LET CT=INT (RND*2) 

305 PRINT RT 18,0; _ 

310 IF CT=0 THEN PRINT 
EUO INDOUINRRE IL TUO" 

312 IF CT=1 THEN PRINT 
EUI INDOUINRRE IL MIO" 

314 PRINT "NUMERO (PREMI UN TR 
STO) " 

320 PRUSE £0000 

370 IF CTs0 THEN GOTO 500 

380 GOSUB 960 

385 GOSUB 9500 

390 GOSUB 560 

392 LET MNeMN+1 

394 GOSUB 4000 

396 GOSUB 9500 

400 GOTO 380 

500 G03UB 560 

505 GOSUB 9500 

510 GOSUB 960 

512 LET MN=MN+1 

514 GOSU8 400© 

516 GOSUB 950© 

52© GOTO 500 

660 REM ROUTINE CODIFICATORE 
570 LET GU=0 
590 GOSUB 9000 

595 PRINT RT 10,0;“SEI IL CODir 
TORTORE" 

e©0 PRINT "BRTTI UN NUMERO DI 4- 
CIPRE" 

li! IF P LEN C CÌ<>4 THEN GOTO 605 

615 LET M*=C$ 

616 GOSUB 129© 

620 IF ERO© THEN GOTO 605 
630 GOSUB 9000 
632 PRINT 

634 PRINT "TENTRTIUO NUMERO" 

635 PRINT 

636 GOTO 680 

638 PRINT RT GU+7,11;T* 

640 PRINT RT 7+GU,0;ÒU 

645 PRINT RT 6,19; "ÙSB?" 

646 PRUSE 20000 

647 LET X*=INKEY* 

648 IF CODE INKEY*<28 OR CODE I 
NKEY*>32 THEN GOTO 645 

549 LET BBsUflL X$ 

650 PRINT RT 7+GU,19;BB 
852 IF BB=4 THEN GO TO 3100 
660 PRINT RT 6,25; "jafflHBB" 

665 PRUSE 20000 
668 LET X$=INKEY* 

670 IF CODE X*<28 OR CODE X*>32 

THEN GOTO 660 

672 LET UU=URL X* 

674 PRINT RT 7+6U.25;UW 
676 GOTO 790 

680 LET Cl=l 

681 LET C2=l 

682 LET C3=l 

684 LET C4=0 

685 LET CUsGUfl _ 

700 IF GU < >1 THEN GOTO 1 10 


702 FOR 1=1 TO 4 

703 LET C(I)=INT (RND*6)+1 

704 NEXT I 

710 IF GU<>2 THEN GOTO 720 

712 LET C(1)=C1 

713 LET CifirV =C£r 

714 LET C(3)=C3 

715 LET C(4)=C4 

720 IF GU <=2 THEN GOTO 730 

722 FOR 1=1 TO 4 

723 LET C(I)=GCGU-1,I) 

724 NEXT I 

730 IF GU >1 THEN GOSUB 1690 
740 LET T $ = “" 

750 FOR 1=1 TO 4 

751 LET 2»=STR$ CCI) 

752 LET TS=T*+2*(LEN 
755 NEXT I 

775 GOTO 638 
790 FOR 1=1 TO 4 
792 LET G(GU,I)=C(I) 

794 NEXT I 
796 LET G(GU,5)=BB 
798 LET G (GU ,6) =UUf 
800 LET M*=C!t 
802 GOSUB 1290 
810 FOR 1=1 TO 4 
812 LET C(I)=T(I) 

814 NEXT I 
820 LET M5=T $ 

822 GOSUB 1290 
830 GOSUB 1480 
840 FOR 1=1 TO 4 
842 LET T(I)=C(I) 

844 NEXT I 

OS0 IF BB=B RND UU=U THEN GOTO 
□ 80 

853 IF B = 1 THEN LET B* = "NERO" 

854 IF B < >1 THEN LET B* = “NERI“ 
857 IF U=1 THEN LET U*="BIRNCO" 

^858 IF Uol THEN LET U*="BIANCH 

859 POKE 18418,0 

860 PRINT RT 22.0;“RURESTI DOUU 

TO BATTERE ";B;" ";B$;" E ";U, ” 

' ; U $ 

B62 PRUSE 2©0 

863 PRINT RT 22,0;" 

864 POKE 16418,2 

870 LET G (GU , 5) =B 

871 LET G(GU,6)=U 

880 IF B=4 THEN GOTO 3100 
890 IF B+U=4 THEN GOSUB 1840 
900 IF B+U=0 THEN GOSUB 1990 
910 IF B=0 RND U<>0 THEN GOSUB 
2110 

935 GOTO 685 
950 RETURN 

1000 REM ROUTINE DEL DECIFRATORE 
1005 GOSUB 9000 

1010 PRINT RT 10,0;"STO PREPARRM 
DO IL MIO CODICE" 

1015 PRUSE 10© 

1030 GOSUB 900© 

1035 PRINT 

1036 PRINT "TENTRTIUO NUMERO N 
ERI BIANCHI" 

1040 PRINT —■—————« 


1050 LET NO=0 
106© FOR 1=1 TO 4 
1062 LET C(I)=INT (RND*6)+1 
1066 NEXT I 
L0S8 PRINT RT2i , 0 ; 

ito 70 INPUT T* _ 

1075 IF LEN T $ < > 4 THEN GOTO 1070 
1080 LET M$=T$ 

1082 GOSUB 1290 „ 

103® IF ER<>0 THEN GOTO 1070 

1095 PRINT RT 21,0;” 

1100 GOSUB 1480 

1110 LET NO=NO+l _ „ 

1122 PRINT RT NO +7,0;NO;TRB 11,H 


ter, cancellando le linee 394 e 514, 
ed inserendo la linea: 

571 RETURN 

La cifra segreta viene formata uti¬ 
lizzando solo numeri da 1 a 6. Il 


programma Almeno una volta richie¬ 
de un tocco veloce sui tasti quando si 
forniscono gli input relativi alla mos¬ 
sa, altrimenti il primo input (1 o 2, 
aggiungi o togli) viene assunto come 
valido anche per il secondo. Cioè se 


premete più a lungo del necessario il 
2, il computer capisce che volete 
togliere cubetti e volete toglierne 2. 
Le numerose linee: 

IF INKEY$ <> "" THEN RETURN 
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$;TAB 19;B;TAB 25 ; U 

1Ì30 IF B < > 4 THEN GOTO 1070 

1140 GOSUB 9000 

1142 PRINT AT 12,0;"HAI INDOVINB 
TO" 

1146 PRINT "IN ";NO; TENTATIVI 

1148 PRINT 

1149 PRINT "COEFFICIENTE DI ABIL 
ITA: " 

1150 PRINT 1/NO; " ( MfiX=1) " 

1156 PAUSE 20600 

1160 RETURN 

1290 REM INIZIALIZZA TCI) 

1300 LET ER=0 

1310 FOR 1=1 TO 4 

1320 LET TCI)=UAL M*(I) 

1330 IF T(I) <1 OR T ( I) >6 THEN LE 

T ER=1 

1340 NEXT I 

135© RETURN 

1460 REM VALUTAZIONE DEL TENTATI 
VO 

1500 LET B=0 
1502 LET U=0 
1510 FOR 1=1 TO 4 
1512 LET W CI) =C CI) 

1514 NEXT I 
1520 FOR 1=1 TO 4 

1530 IF UCDoTCI) THEN GOTO 155 
■0 

1540 LET U CI) =-l 
1542 LET T CI) =-2 
1544 LET B=B+1 
1550 NEXT I 
1560 FOR 1=1 TO 4 
1570 FOR U=1 TO 4 

1560 IF TIIIOUIJ) THEN GOTO 160 
0 

1690 LET U(U)=-1 
1592 LET U=U-t-1 
1594 GOTO 1602 
1600 NEXT U 
1602 NEXT I 
1620 RETURN 

1690 REM ROUTINE PER NUOVO TENTA 
T IVO 

1700 GOSUB 2220 
1710 FOR L=1 TO GU-1 
1720 FOR J=1 TO 4 
1730 LET T CU) =G CL , U) 

174© NEXT U 
1750 GOSUB 14S0 

1760 IF GCL,5)=B AND GCL,63=U TH 

EN GOTO 1780 

1770 GOTO 1700 

1780 NEXT L 

1790 RETURN 

1870 FOR 1=1 TO 6 

1872 LET E(I)=I 

1874 NEXT I 

1880 FOR 1=1 TO 4 

1890 LET E(G(GU,I))=© 

1900 NEXT I 
1910 FOR 1=1 TO 6 

1920 IF E CI) <>0 THEN GOSUB 3200 

1930 NEXT I 

1940 RETURN 

2020 FOR 1=1 TO 4 

2030 FOR U=1 TO 4 

2040 LET D CG CGU,1) ,U) =0 

2050 NEXT U 

2052 NEXT I 

2060 RETURN 

2140 FOR 1=1 TO 4 

2150 LET D(G(GU,I) ,I)=0 

2160 NEXT I 

2170 RETURN 

2220 REM ROUTINE PER ESTRARRE UN 
NUMERO DALLA TABELLA DELLE POSS 
IBILITA 

2230 GOTO 2360 

2240 IF D CC1,1) <>0 THEN GOTO 300 
© 


225© LET C1=C1+1 

2260 IF CI<7 THEN GOTO 2240 

2270 GOTO 302O 

2260 IF D(C2 ,2) < >0 THEN GOTO 303 
0 

2290 LET C2=C2+1 

2300 IF C2 < 7 THEN GOTO 2280 

2310 LET C2 = 1 

2312 GOTO 2250 

2320 IF DtC3,3)<>0 THEN GOTO 304 
© 

2330 LET C3=C3+1 

2340 IF C3<7 THEN GOTO 2320 

2350 LET 03=1 

2355 GOTO 2290 

2360 LET C4=C4+1 

2370 IF C4 < 7 THEN GOTO 2390 

2380 LET C4=0 

2382 GOTO 2330 

2390 IF D CC4,4) =0 THEN GOTO 2360 
2400 LET CC4)=DCC4,4) 

2410 RETURN 

3000 LET C 11) =D(CI;1) 

3005 GOTO 2280 
3020 GOSUB 9000 

3025 PRINT AT 10,0;"ERRORE NELLA 
TABELLA DELLE POSSIBILITÀ" 

3027 STOP 

3030 LET C(2) =D (C2,2) 

3035 GOTO 2320 

3040 LET CC3)=DCC3,3) 

3045 GOTO 2360 
3100 GOSUB 9000 

3102 PRINT AT 10,0;"HO INDOUINRT 

O" 

3104 PRINT 

3106 PRINT "IN ";GU;" TENTATIVI" 

3110 PAUSE 20000 

3120 RETURN 

3200 LET D CI,1) =0 

3205 LET D CI,2) =0 

3210 LET D(1,3)=0 

3215 LET D CI,4) =0 

3220 RETURN 

4000 GOSUB 9000 

4005 LET XI=XI+GU 

4006 LET XT =XT +NO 

4010 PRINT AT 7,0;"PARTITE" 

4015 PRINT 
4020 PRINT MN 

4030 PRINT AT 12,0;"TOTALE TENTA 
TIVI" 

4035 PRINT 

4042 PRINT "2X81 ";XI 

4043 PRINT NS; “ " ; XT 

4050 PRINT AT 18,0,"COEFFICIENTE 
ABILITA¬ 
SSE PRINT 

4062 PRINT "ZX81 "jMN/XI 
4064 PRINT N*; " ";MN,'XT 
4070 PAUSE 20000 
4080 RETURN 


9000 CLS 




9020 PRINT TAB 10;"MASTER MIND" 
9025 PRINT 
9030 PRINT 


9500 DIM D (6,6) 
9505 FOR K=1 TO 6 
9510 FOR U=1 TO 4 
9515 LET D CK,U) =K 
9520 NEXT U 
953© NEXT K 
9535 DIM T C4) 

9537 DIM CC4) 

9640 DIM E(6) 

9542 DIM UC4) 

9600 DIM G <20 , 6) 
9605 RETURN 


nella routine 9500-9580 servono pro¬ 
prio ad ovviare a questo inconve¬ 
niente. Se nonostante tutto non riu¬ 
scite a regolare il tocco e l’inéonve- 
niente persiste, dovete rinunciare al 
volo degli uccelli inserendo alle linee 


Listato 8. Questo listato rappresenta la conversione del programma MASTER 
MIND apparso sul numero 1 di Personal Software. A turno, il giocatore o il 
computer devono indovinare il numero pensato dall’avversario. Per ogni 
tentativo vanno indicati i NERI (numeri giusti al posto giusto) ed i BIANCHI 
(numeri giusti ma fuori posto). 

Il carattere CHR$ 3 (linea 635) si ottiene con Graphics e 7. 
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Il display file dello ZX81 

Lo ZX81 conserva sempre in memoria una mappa aggiornata dello schermo. 

Se date l’istruzione: 

PRINT AT 10, 10; “A” 

il computer modifica questa mappa facendo in modo che alle coordinate 10, 10 corri¬ 
sponda il carattere A. 

Ovviamente lo ZX81 non vede lo schermo come lo vedete voi: per lui non è costitui¬ 
to da un reticolo di 24 x 33 punti (32 colonne più il newline) bensì da una serie di 792 
punti messi in fila più un punto finale, cioè 793 punti. 

Il contenuto di ogni punto viene immagazzinato in un indirizzo di memoria: l’insieme 
dei 793 indirizzi costituisce il display file. 

Quindi se ogni punto dello schermo è associato ad un indirizzo di memoria, leggendo 
l’indirizzo relativo al punto 10, 10 dovreste ottenere la lettera A. In realtà ottenete il 
numero 38, che è il numero di codice della lettera A. 

Come fate a sapere quale sia l’indirizzo che contiene l’informazione relativa al punto 
10, 10 dello schermo? 

Anzitutto occorre stabilire il punto di partenza del display file: ammettiamo che il 
suo primo indirizzo sia il 17000. 

In questo caso avrete che: 

- all’indirizzo 17000 potete leggere il codice del carattere posto in 0, 0; (se non c’è 
niente leggete 0, cioè spazio); 

- all’indirizzo 17001 potete leggere il codice del carattere posto in 0, 1; 

- all’indirizzo 17000 + 34 potete leggere il codice del carattere posto in 1,0; 

- all’indirizzo 17000 + 341 potete leggere il contenuto del carattere posto in 10, 10. 

Dovete aggiungere 341 perché per arrivare al carattere 10 nella linea 10 dovete 
attraversare: 

- 10 linee intere (330 punti) + 11 punti 

(linee e colonne si contano partendo da zero). 

I problemi non sono ancora finiti. Infatti il display file non comincia ad un indirizzo 
fisso. L’indirizzo di inizio del display file è contenuto in altri due indirizzi. Con l’istru¬ 
zione: 

PEEK 16396 + 256 * PEEK 16397 

otteniamo un numero equivalente al primo indirizzo del display file. 

Con l’istruzione: 

PEEK (PEEK 16396 + 256 * PEEK 16397) 

otteniamo il numero di codice contenuto nel primo indirizzo del display file. 

Con l’istruzione: 

PEEK ((PEEK 16396 + 256 * PEEK 16397) + 341) 

otteniamo il numero di codice del carattere posto in 10, 10. 

II discorso fatto con l’istruzione PEEK vale anche per l’istruzione POKE. Se voglia¬ 
mo scrivere “A” nella posizione 10, 10 e vogliamo farlo in maniera assai più veloce di 
quella ottenibile con PRINT AT, possiamo scrivere: 

LET B = PEEK 16396 + 256 * PEEK 16397 
POKE B + 341, 38 

L’istruzione POKE per la sua velocità di esecuzione viene spesso usata per modifica¬ 
re il display file nei giochi di movimento. 


520 e 620 l’istruzione: 

PAUSE 20000 

Nel listato 9 viene fatto largo uso 
dell’operatore AND; per esempio 
nelle linee 610, 705, 760 e altre. 
Troverete una nota sugli operatori 
logici nella rubrica I segreti dei per¬ 
sonal. 


Versioni da 1 Kbyte 

Infine non potevamo dimenticare 
gli amici sinclaristi con sistema in 
configurazione minima. Nei listati 10 
eli troveranno la versione 1 Kbyte 
di un programma Master Mind e di 
Almeno una volta. 

Nel listato 10 usiamo l’istruzione 


POKE 16418, 18 (vedi Personal Soft¬ 
ware n. 6: le variabili di sistema nello 
ZX81) che riserva le 18 linee nel 
basso dello schermo al computer, 
per cui possiamo utilizzare per la 
visualizzazione dell’output solo le sei 
linee più in alto. Se così non fosse, il 
computer darebbe errore di tipo 4 
(manca spazio in memoria) quando i 
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2® LET R$ = "" 

. .-33 .|EOR. XsP-I-'PI' .TO.-URL - A- 

4.® LET R$=R$+STR$ i XNT ÌRND«-Ufi 
S_ "6" ) +PI/PI) 

50 NEXT K 
60 LET J=P I/PI 
7® PRINT 
72 PRINT 
60 PRINT "TENT.",;TflB URL “6";" 
NUM >"; TRE URL "11“; "GXU";TRB URL 
"16";"FP" 

85 PRINT J;TRS URL "6"; 

86 LET G =PI-PI 

87 LET F=PI-PI 
90 INPUT B$ 

92 POKE URL "16418" J URL "18" 
100 IF LEN 6$ < >URL "4" THEN GOT 
O URL "9©" 

105 PRINT B*; 

106 IF B*=R* THEN GOTO URL "250 


110 LET D*=R* 

120 FOR KsPl/PI TO URL “4" 


125 IF D$(K) =B$ (K) THEN GOSUB U 
RL "300" 

127 NEXT K 

128 FOR K=PI/PI TO URL "4" 

13© FOR U=PI/PI TO URL "A" 

135 IF B$(K)=D$(U) THEN GOTO UP 
L "350" 

150 NEXT U 
160 NEXT K 

200 PRINT TRB URL "11";G;TRB U« 
L "16";F 

218 LET J=J+PI/PI 

.220- ■ IF- -•A-". THEN■■ SCROLL 

230 GOTO UR L "S S" 

250 PRINT "HHESB" 

255 STOP 

300 LET D*(K)=“R" 

302 LET B$iK)="B" 

305 LET G=G +PI/PX 

310 RETURN 

350 LET D$ (U) = "R" 

352 LET F =F +PX/PI 
355 GOTO URL "160" 


Listato 10. Il listato presenta una versione del gioco MASTER MIND che può girare su ZX81 con I Kbyte di memoria. PI 
intende pigreco (Function e M). L’uso delle funzioni VAL e PI consente un notevole risparmio di memoria. Se provate a 
correggere un errore in una linea quando il programma è caricato, noterete che il tasto EDIT non riesce a farla scendere in 
basso. Allora premete CLEAR e NEWLINE e riprovando EDIT vedrete che funziona. 


10 LET A = VAL “26'’ 

15 CLS 

20 PRINT “ALMENO UNA VOLTA” 

30 PRINT “1 spazio nero e 1 bianco”; A; “1 spazio bianco e uno 
42 PRINT 

50 PRINT ‘UMETTI 2LEVI" 

60 PAUSE VAL “6E4” 

70 LET 8$ = INKEY$ 

72 IF B$ = ”1” AND A < VAL “11” OR B$ = “1" AND A > VAL 
THEN GOTO VAL “60” 

100 PRINT AT VAL ”4”, PI-PI; “QUANTI ?” 

110 PAUSE VAL “6E4” 

120 LET C$ = INKEY$ 

122 IF B$ = T" AND VAL C$ + A > VAL “31“ 

THEN GOTO VAL “110” 

124 LET J = PI/PI 
130 GOSUB VAL ”700” 

140 PRINT AT VAL “2”, PI-PI; “1 spazio nero e 1 spazio bianco”; 
A: “1 spazio bianco e 1 spazio nero” 


150 PRINT AT VAL “4”, PI-PI; “PREMI PER ME” 

160 PAUSE VAL “4E4” 

170 FOR K = VAL “1” TO VAL “31” STEP VAL ”5” 
nero” 180 FOR W = K TO K + VAL “4” 

190 IF W = A THEN GOTO VAL “220” 

200 NEXT W 
210 NEXT K 
220 LET B$ = “2" 

“30” 230 LET C$ = STR$ (A-K) 

235 LET J = VAL “2” 

240 GOSUB VAL “700” 

250 GOTO VAL “15” 

700 LET A = A + (VAL C$ AND B$ = “1”) - (VAL C$ 
AND B$ = “2”) 

702 IF A = PI/PI THEN PRINT AT VAL “2”, VAL “2"; “1”; 
AT VAL ”4", PI-PI; ( “HAI VINTO TU” AND J = 

VAL "1”) + ( “HO VINTO IO” AND J = VAL “2”) 

703 IF A = PI/PI THEN STOP 
705 RETURN 


Listato 11. Versione 1 Kbyte del programma ALMENO UNA VOLTA. Caricando il programma battete per prima la linea 
702. I caratteri sottolineati vanno scritti in inverso. Le stringhe: EMETTI 2LEVI (50), QUANTI ? (100), HAI VINTO TU, 
HO VINTO IO contengono tutte 12 caratteri in modo che sovrapponendosi si cancellano. 


tentativi fossero molti e venissero 
utilizzate più di 6 linee. 

La linea 220 esegue lo scroll, che 
naturalmente ha effetto dalla linea 5 
in su. La colonna GIÙ indica i nume¬ 
ri giusti al posto giusto, la colonna 
FP i numeri giusti fuori posto. 

Il listato 11 conserva la quantità di 
cubetti nella variabile A, di cui viene 


stampato il valore. Il giocatore può 
ancora togliere o aggiungere da 1 a 4 
cubetti, il computer toglie solamen¬ 
te. Chi toglie l’ultimo perde. 

Nella rubrica I segreti dei personal 
troverete informazioni sulle tecniche 
di risparmio di memoria usate in 
questi due programmi. 

Caricandoli non dovete aggiunge¬ 


re né cambiare assolutamente nien¬ 
te, per non provocare errori di tipo 
4, dal momento che la memoria vie¬ 
ne riempita al suo limite. ■ 
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I programmi di simulazione 


Un’introduzione 
ad un 

utilizzo creativo 
del vostro personal 

di Francesco Sardo 


L a maggior parte dei fenomeni 
fisici sono descrivibili me¬ 
diante espressioni che metto¬ 
no in relazione quantitativamente le 
grandezze in gioco, dando la possi¬ 
bilità di calcolare le variazioni di 
una al variare delle altre. Se il feno¬ 
meno fisico è quindi esattamente 
descrivibile, è anche simulabile 
mediante le stesse espressioni. 

Se, per esempio, si assume che un 
solido cada nel vuoto da 100 m di 
altezza, mediante la legge che de¬ 
scrive la caduta dei gravi è possibile 
sapere ad ogni tempo che velocità 
ha raggiunto il corpo, e a che distan¬ 
za si trova dal suolo. 

Questa caduta può essere quindi 
simulata al calcolatore; dando solo 
l’altezza da cui inizia la caduta, il 
calcolatore potrà realizzare una 
tabella tempi/velocità/spazio percor¬ 
so, e alla fine, dare l’energia del suo 
urto col suolo. 

È chiaro come ciò rappresenti, 
con opportuni accorgimenti grafici, 
un’ottima illustrazione del fenome¬ 
no, che permetterà, di esaminarlo 
nei vari dettagli. 

Ogni programma di simulazione è 
costituito dalle seguenti parti: 

1. Messaggi iniziali, con enunciazio¬ 
ne delle regole, descrizione del 
fenomeno, modalità d’uso del 
. programma. 

2. Visualizzazione della situazione 
di partenza. 

3. Input dei dati (nel ns. esempio, 
solo altezza iniziale). 


4. Calcolo delle modificazioni della 
situazione avvenuta, effettuato 
mediante le equazioni che descri¬ 
vono il fenomeno (es.: nuova al¬ 
tezza o nuova velocità). 

5. Visualizzazione della nuova si¬ 
tuazione. 

6. Verifica dell’eventuale raggiungi¬ 
mento delle condizioni finali: 

- in caso affermativo, messaggi 
di chiusura, 

- in caso negativo, ritorno al 
punto 3 o al punto 4 nel caso in 
cui si devono immettere nuovi 
dati o meno. 

Esaminiamo ora le principali ap¬ 
plicazioni di questo tipo di pro¬ 
grammi. 

Giochi 

Esistono o sono immaginabili un 
gran numero di giochi di simulazio¬ 
ne: la guida di un aereo, la caccia ad 
un sottomarino con una nave di su¬ 
perficie, le manovre del modulo lu¬ 
nare o dello Shuttle. 

Anche l’andamento della Borsa 
valori può essere simulato: anche se 
il rialzo e il ribasso dei titoli non 
dipendono da alcuna legge matema¬ 
tica, l’andamento generale può esse¬ 
re espresso con buona approssima¬ 
zione mediante funzioni di tipo sinu¬ 
soidale. 

La buona qualità del gioco dipen¬ 
de poi dalla veste grafica, dalla fan¬ 
tasia del programmatore, dalla accu- 
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ratezza con cui si tiene conto dei va¬ 
ri fattori che prendono parte al fe¬ 
nomeno. 

Ad esempio, l’atterraggio di un 
aereo può essere simulato in manie¬ 
ra approssimativa dando come va¬ 
riabili solo l’accelleratore e la posi¬ 
zione degli alettoni, o in maniera ac¬ 
curata, tenendo conto del peso del¬ 
l’aereo, delle riserve di carburante, 
delia velocità di stallo, del vento, 
ecc. 

È chiaro che l’efficacia della 
visualizzazione è determinante. 

Agli effetti della piacevolezza del 
gioco, è più importante far vedere 
gli strumenti di bordo e la pista, e 
dare l’impressione di partecipare at¬ 
tivamente all’operazione, piuttosto 
che tener conto di dieci o quindici 
equazioni che collegano la velocità 
con la posizione dell’accelleratore o 
la quota con la posizione degli alet¬ 
toni o la riserva di carburante con il 
regime dei motori e il tempo di volo 
o l’assetto dell’aereo con altre varia¬ 
bili ancora. 

La maggior parte delle equazioni 
usate saranno quindi empiriche o 
approssimate. 

Insegnamento 

I programmi di simulazione, come 
dicevamo a proposito della legge 
sulla caduta dei gravi, hanno una ef¬ 
ficacia ineguagliabile nell’illustrare 
didatticamente un fenomeno. 

Le applicazioni sono le più svaria¬ 
te, praticamente ogni fenomeno fisi¬ 
co può essere visualizzato e illustra¬ 
to mediante un programma di simu¬ 
lazione. 

Esistono già programmi che illu¬ 
strano le leggi dell’ottica, la rifrazio¬ 
ne, la interferenza, i fenomeni oscil¬ 
latori, la legge di Ohm. Un pro¬ 
gramma simula alla perfezione il 
rimbalzare di una palla di gomma, 
calcolando punto per punto la sua 
velocità e la sua altezza dal suolo, e 
visualizzandola sullo schermo o sulla 
stampante. Un buon programma di¬ 
dattico naturalmente deve non solo 
far vedere la palla che rimbalza, 
perché ciò si può più efficacemente 
vedere con una palla reale, ma mo¬ 
strare le equazioni usate, i calcoli ef¬ 
fettuati e i risultati ad ogni istante, 


realizzando così una traccia che è 
poi il cammino della palla costruito 
punto per punto. 

Si può far vedere il comportamen¬ 
to di un gas, e come esso risponda 
alle variazioni di temperatura, di 
pressione o di volume indotte dall’u¬ 
tente, a seconda che sia un gas idea¬ 
le o un gas reale. 

Si possono simulare modificazioni 
a temperatura costante, o a pressio¬ 
ne costante o a volume costante, 
esaminando quindi e illustrando tut¬ 
te le leggi dei gas. 

Nel campo della chimica, fra le al¬ 
tre cose, si può illustrare la cinetica 
delle reazioni osservando lo scom¬ 
parire dei reagenti e il formarsi dei 
prodotti al passare del tempo, e in 
funzione delle concentrazioni dei 
composti in gioco, a seconda dell’or¬ 
dine della reazione. 

A tale scopo è opportuno dividere 
lo schermo in più aree: in una si può 
visualizzare il progressivo scompari¬ 
re dei reagenti e apparire dei pro¬ 
dotti; in un’altra i dati calcolati ad 
ogni istante, in una terza la reazione 
e l’espressione con cui vengono cal¬ 
colati i dati. 

Nel campo della matematica si 
può visualizzare la distribuzione sta¬ 
tistica di eventi casuali simulati me¬ 
diante la funzione RND, come ad 
esempio il lancio di dadi. 

Nel campo della ecologia, l’au¬ 
mento o la diminuzione relativa del¬ 
la popolazione di due specie in com¬ 
petizione (classico, le volpi e i coni¬ 
gli, vedi cassetta dimostrativa dello 
Spectrum). 

E così proseguendo si potrebbero 
fare centinaia di esempi; starà ai 
programmatori sbizzarrirsi in base 
alla loro fantasia e alle esigenze dei 
discenti. 

Programmi applicativi 

Il classico programma applicativo 
di questo tipo è il simulatore di 
volo; poiché un errore nella guida di 
un aereo può essere estremamente 
pericoloso, gli allievi piloti si allena¬ 
no sui simulatori. Questi programmi 
sono molto accurati, e tengono con¬ 
to di tutti i fattori che possono in¬ 
fluenzare il volo, inserendo anche 
delle situazioni di pericolo. 


Ma a parte questo uso un po’ par¬ 
ticolare, i programmi di simulazione 
vengono utilizzati tutti i giorni; an¬ 
che i programmi di calcolo di strut¬ 
ture, visto che lavorano mediante 
verifica, possono essere considerati 
di simulazione; si ipotizza una strut¬ 
tura, la si simula mediante le equa¬ 
zioni che la descrivono, si vede se 
regge. Se così non avviene, senza 
scomodare squadre di soccorso e 
ambulanze, si prova una struttura 
appena più resistente. 

L’applicazione è comunque gene¬ 
rale e di estremo interesse: un im¬ 
pianto petrolchimico, un acquedot¬ 
to, un impianto di depurazione pos¬ 
sono essere descritti mediante una 
serie di equazioni che collegano fra 
loro tutte le variabili in gioco; in 
questo caso si parla di modello ma¬ 
tematico del sistema. 

Un modello può essere più o 
meno accurato, a seconda se si tiene 
conto di tutte le variabili o se se ne 
trascura qualcuna. Al variare di 
qualche grandezza, si vede come ri¬ 
sponde tutto il sistema. Si calcolano 
le condizioni di costo minimo e di 
funzionamento ottimale. 

È bene notare come anche in que¬ 
sti casi, sebbene il programma possa 
diventare anche molto complesso 
per quel che riguarda il calcolo, la 
sua struttura rimanga sempre quella 
descritta inizialmente. 

Bisogna però tener presente che è 
necessario esplicitare nel program¬ 
ma la funzione da calcolare; cioè 
l’espressione per determinare y deve 
essere nella forma y = f (x), e non 
può essere nella forma f (x, y) = 0. 

Occorre quindi che sia stabilito 
già all’atto della preparazione del 
programma, quali debbano essere le 
variabili indipendenti e quali le va¬ 
riabili dipendenti. 

Allora ne risulta che è necessario 
impostare il programma di simula¬ 
zione mediante un modello matema¬ 
tico in due modi diversi, a seconda 
dello scopo a cui deve servire: 

a) Se l’obiettivo è il dimensiona¬ 
mento di un nuovo impianto, oc¬ 
corre dare come input le presta¬ 
zioni richieste alle condizioni di 
funzionamento prescelte ed 
esplicitare nel programma, le va¬ 
riabili di dimensionamento (volu- 
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mi, spessori, diametri, potenze), 
per poterle avere in output, 
b) Se l’obiettivo è il controllo di un 
impianto esistente, e l’esame del¬ 
la sua risposta al mutare delle 
condizioni operative, occorre da¬ 
re come input le dimensioni, e in 
generale tutte le grandezze che 
risultano già definite per il fatto 
stesso che il sistema esiste e spe¬ 
cificare quelle che sono soggette 
a regolazioni, che potranno esse¬ 
re esplicitate durante il funziona¬ 
mento (portate, concentrazioni, 
rese). 

Sarà così possibile, dato un siste¬ 


ma definito ed esistente, studiar¬ 
ne il comportamento nelle sue 
variabili di funzionamento al va¬ 
riare delle regolazioni fino ad 
identificare le condizioni ottimali 
di massima resa. 

Non è, in generale, possibile 
impostare un programma in mo¬ 
do che serva, senza modifiche, 
sia per il dimensionamento in fa¬ 
se di progettazione che per il 
controllo del funzionamento, a 
meno che esso non consista in 
due programmi concatenati da 
usare in alternativa. ■ 


Il tanto atteso Microdrive Sinclair è arrivato! 

Presentato alla stampa di settore il nuovo ZX Microdrive, che adottando un rivoluzionario tipo 
di supporto magnetico e avanzate caratteristiche di progetto, costituisce una novità per la solu¬ 
zione del delicato problema della memorizzazione programmi e dati nel settore degli home 
computer. 

Lo ZX Microdrive consente infatti di registrare, su di una piccola cartuccia magnetica intercam¬ 
biabile, ben 85 Kbyte di informazioni. 

Ogni cartuccia può contenere un massimo di 50 file che sono identificati da un nome convenzio¬ 
nale scelto dall’utente. I file possono essere singolarmente caricati, memorizzati, visualizzati in 
ordine alfabetico o cancellati. Il tempo medio di accesso ad un file è dichiarato essere di circa 3,5 
secondi, un notevole miglioramento rispetto ad una normale cassetta audio usata dalla maggior 
parte degli home computer in commercio. 11 circuito di controllo del Microdrive, contenuto nella 
ZX Interfaccia 1 espande il linguaggio Sinclair BASIC residente nel microcomputer ZX Spec- 
trum, includendo la gestione dei file e comandi per il colloquio fra microelaboratori. 

Ciò rende il BASIC valido non più solo come linguaggio di programmazione ma anche come 
sistema operativo. Fino ad otto Microdrive possono essere collegati ad uno ZX Spectrum tramite 
la ZX Interfaccia 1, dando un totale di 680 Kbyte di informazioni sempre in linea. 

Lo ZX Microdrive amplia le possibilità dello ZX Spectrum in quei settori, come quello della 
didattica e della piccola gestione di dati, dove è necessaria una veloce ricerca delle informazioni 
memorizzate su un supporto magnetico. 

Le caratteristiche tecniche fondamentali sono le seguenti: 

- Comandi di SAVE, LOAD e VERIFY per la memorizzazione, il caricamento e la verifica dei 
programmi. 

- Comando FORMAT per l’inizializzazione delle cartucce magnetiche. 

- Comando CAT per ottenere su video la lista in ordine alfabetico di tutti i file contenuti nella 
cartuccia. Viene fornita anche una indicazione dello spazio libero disponibile su cartuccia. 

- Alimentazione attraverso lo Spectrum. 

- Spia luminosa rossa che indica Io stato di funzionamento. 

La ZX Interfaccia 1, che incorpora anche una interfaccia RS 232 e un sistema di collegamento in 
rete locale, si connette alla parte posteriore dello ZX Spectrum, permettendo comunque il 
collegamento di altre espansioni periferiche dello ZX Spectrum. La interfaccia seriale RS 232, 
standard industriale universalmente adottato, permette il collegamento fra lo ZX Spectrum ed 
una ampia gamma di periferiche e di altri computer dotati della medesima interfaccia. Grazie 
alla RS 232 è anche possibile trasmettere dati su linea telefonica utilizzando un modem. 
L’interfaccia opera con velocità selezionabile via software con tutti i valori standard di trasmis¬ 
sione fino al massimo di 19.200 baud. 

Il collegamento in rete locale è costituito da una linea di comunicazione ad alta velocità che può 
collegare fino a 64 Spectrum, trasmettendo a 100 Kbaud. 

Tutte le immagini contenute in uno schermo video possono essere trasferite in circa 3 secondi e il 
protocollo di collegamento permette ad ogni stazione della rete di specificare quali sono le 
stazioni trasmittenti e riceventi. 

È inoltre possibile diffondere un messaggio ad ogni ZX Spectrum collegato alla rete realizzando 
un interessante sistema di broadcasting. 

Ogni Sinclair ZX Spectrum può agire come servitore di altri ZX Spectrum dalla rete pilotando 
una stampante ZX o qualsiasi altra periferica collegata tramite la interfaccia RS 232. 

Ogni ZX Spectrum può inviare e ricevere file dagli altri computer della rete sfruttando al 
massimo le possibilità offerte dallo ZX Microdrive. 

La rete locale ZX offre un numero molto vasto di possibilità agli utilizzatori realizzando a costi 
molto contenuti un sistema multiutente di scambio di informazioni. Le applicazioni possibili 
possono essere individuate sia nel settore della didattica e dell’ufficio sia in quello dell’intratteni¬ 
mento dove sono realizzabili sfide multiutente. 
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Una pubblicazione 
del Gruppo Editoriale Jackson 



Il nuovo ZX Microdrive: compatto e ad un 
prezzo estremamente contenuto offre a tutti 
gli utenti dello ZX Spectrum i vantaggi di 
una memoria di massa veloce ed affidabile. 
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Il Sinclair ZX Microdrive collegato allo ZX 
Spectrum grazie alla ZX Interfaccia I. 
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Trovi il meglio 
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GRUPPO 

EDITORIALE 

JACKSON 








ABBONARSI CONVIENE 

Urto sconto sicuro, per chi sottoscrive un abbonamento 


Riviste 

Uscite 

Importo Globale 

Costo abbonamento 

Costo abbonamento estero 

Personal Software 

10 

L. 35.000 

L. 28.000 

L. 42.000 

Bit 

11 

U44.00fr 

L. 35.000 

L. 52.500 

Informatica Oggi 

11 

LJJSrOOO' 

L. 27.000 

L. 40.500 

Elektor 

12 

L*j36sOOCT 

L. 29.000 

L. 43.500 

Automazione Oggi 

11 

L JJ3*00(T 

L. 26.000 

L. 39.000 

Elettronica Oggi 

11 

U38500 

L. 31.000 

L. 46.500 

L'Elettronica 

22 

L t 55.00a 

L. 44.000 

L. 66.000 

Telecomunicazioni 

8 

^28v000 

L. 22.000 

L. 33.000 

Video Giochi 

11 

L^33,000 

L. 25.000 

L. 37.500 

Strumenti musicali 

10 

L,30v000 

L. 24.000 

L. 36.000 


Un supersconto a chi si abbona a due o più riviste 

Tutti coloro che sottoscrivono l'abbonamento a due o più 
riviste godono di un prezzo ulteriormente agevolato, come 
appare nella seguente tabellina. 

Esempio: Bit + Informatica Oggi 

L. 35.000 + L. 27.000 = L. 62.000 meno L. 2.000 = L. 60.000! 


Abbonamento a 2 riviste: L. 2.000 in meno sulla somma dei 2 prezzi d'abbonamento 

Abbonamento a 3 riviste: L. 4.000 in meno sulla somma dei 3 prezzi d'abbonamento 

Abbonamento a 4 riviste: L. 7.000 in meno sulla somma dei 4 prezzi d'abbonamento 

Abbonamento a 5 riviste: L. 10.000 in meno sulla somma dei 5 prezzi d'abbonamento 

Abbonamento a 6 riviste: L, 13.000 in meno sulla somma dei 6 prezzi d'abbonamento 

Abbonamento a 7 riviste: L. 1 6.000 in meno sulla somma dei 7 prezzi d'abbonamento 

Abbonamento a 8 riviste: L. 20.000 in meno sulla somma degli 8 prezzi d'abbonamento 
Abbonamento a 9 riviste: L. 25.000 in meno sulla somma dei 9 prezzi d'abbonamento 
Abbonamento a 10 riviste: L, 30.000 in meno sulla somma dei 10 prezzi d'abbonamento 


Un premio a sorte per ogni rivista 

Ad ogni Rivista JACKSON sono abbinati uno o più premi 
prestigiosi e di grande valore, da estrarre a sorte tra gli 
abbonati della relativa testata. Eccone l'elenco: 


Personal Software 

3 Personal Computer Sinclair Spectrum distribuiti da G.B.C.-Rebit 

Bit 

1 Personal Computer IBM 

Informatica Oggi 

1 Personal Computer IBM 

Elektor 

1 oscilloscopio UNAOHM doppia traccia, mod. 4001 B DT 

Automazione Oggi 

1 Personal Plotter M 84 della Calcomp 

Elettronica Oggi 

1 Oscilloscopio PM3215 Philips 

L'Elettronica 

2 Personal Computer portatili Epson HX-20, distribuiti da SEGI 

Telecomunicazioni 

3 Telefoni Margherita e 3 segreterie telefoniche della ITALTEL 

Video Giochi 

5 basi ATARI 

Strumenti Musicali 

1 Chitarra elettr. B.C. Rich mod. New Jersey Ser. Eagle, distr. da Meazzi (MI) 


Abbonandosi a più Riviste, inoltre, si ha diritto a Per abbonarsi 

partecipare a più estrazioni e a far inserire il proprio Per sottoscrivere abbonamenti utilizzate il modulo di c.c.p. 

nominativo un equivalente numero di volte tra i n. 11 666203 intestato a Jackson - Milano inserito in questo 

partecipanti all'estrazione del Superpremio fascicolo, oppure inviate un assegno o un vaglia postale al 

JACKSON "3 viaggi a Londra" nostro ufficio abbonamenti. 











































CAMPAGNA 

ABBONAMENTI 

1984 


1) Il Gruppo Editoriale 
JACKSON S.r.l. in 
occasione della 
Campagna 
Abbonamenti 1984, 
promuove un grande 
Concorso a premi. 

2) Per partecipare è 
sufficiente sottoscrivere 
un abbonamento a una 
qualsiasi delle 10 
Riviste JACKSON entro 
il 28-2-'84. 

3) Fra gli Abbonati di 
ogni Rivista saranno 
sorteggiati uno o più 
premi specifici, come 
indicato nelle singole 
condizioni di 
abbonamento. Tra tutti 
gli Abbonati del 
Gruppo JACKSON, 


infine, saranno 
sorteggiati 3 viaggi a 
Londra per 2 persone, 
con soggiorno di 5 
giorni. 

4) Gli Abbonati a più di 
una Rivista JACKSON, 
oltre a partecipare alle 
estrazioni dei premi 
abbinati alle testate, 
avranno diritto 
all'inserimento del 
proprio nominativo, per 
l'estrazione relativa al 
viaggio-soggiorno, 
tante volte quante sono 
le Riviste a cui sono 
abbonati. 

5) L'estrazione dei premi 
indicati avverrà presso 
la Sede JACKSON 
entro il 30-6-'84. 


6) L'elenco dei vincitori e 
dei relativi premi sarà 
pubblicato su almeno 6 
Riviste JACKSON. Il 
Gruppo Editoriale 
JACKSON, inoltre, ne 
darà comunicazione 
scritta ai singoli 
vincitori. 

7) I premi verranno messi 
a disposizione degli 
aventi diritto entro 60 
giorni dalla data 
dell'estrazione. 

8) I dipendenti, i familiari, 
i collaboratori del 
Gruppo Editoriale 
JACKSON sono esclusi 
dal presente Concorso. 

Aut. Min. D.M. N° 4/247403 
del 27-10-83 


Anche quest'anno la 
Campagna 
Abbonamenti 
JACKSON riserva a 
tutti i lettori abbonati — 
oltre a tariffe 
preferenziali — anche 
un grande CONCORSO 
con moltissimi premi. 

Ad ogni Rivista 
JACKSON, ad esempio, 
sono abbinate una o 
più apparecchiature di 
elettronica o di 
informatica da estrorsi 
a sorte tra tutti gli 
Abbonati di quella 
testata. 

Abbonarsi a più Riviste 
significa, quindi, 
partecipare di diritto a 
più estrazioni e perciò 
aumentare le proprie 
possibilità di vittoria. 
Condizione essenziale 
per partecipare alle 
estrazioni in 
programma è inviare il 
proprio abbonamento 
entro il 28-2-1984. 

Tutti gli Abbonati alle 
Riviste JACKSON, 
infine, parteciperanno 
all'estrazione generale 
che vedrà in palio il 
Superpremio 
JACKSON, consistente 
in 3 viaggi a Londra, 
per 2 persone, della 
durata di 5 giorni. 


REGOLAMENTO DEL CONCORSO 













La più letta delle Riviste Jackson, la prima Rivista europea 
di personal computer, software e accessori. Ogni numero 
rappresenta un'affascinante avventura nel mondo dei 
piccoli sistemi, un universo in cui si muove e opera un 
numero sempre crescente di hobbisti, tecnici, professionisti, 
appassionati, ai quali BIT dedica idee e soluzioni pratiche 
per imparare a programmare, per 'giocare' con il 
computer, per lavorarci 

In ogni numero 

Bitest 

Novità del mercato 
Software 
Articoli tecnici 
Analisi e raffronti 
64 pagine di programmi 

Riviste complementari 

Personal Software 


11 numeri all'anno di cui 4 monografici 
solo L. 35.000 
invece di L. 44.000 



In più, gli abbonati di BIT 
partecipano 
all'estrazione di un 
favoloso Personal 
Computer della IBM 

... e a quella del 
Superpremio JACKSON 
"3 viaggi a Londra" 


Informatica Oggi 



















1000 dischetti 
per 1000 Abbonati 


I primi 1000 Abbonati di Personal 
Software riceveranno, insieme al 
primo numero della Rivista, un 
Mini Flexible Disc della Memorex. 
Abbonarsi conviene. Subito è 
meglio! 


w\ 

Mini Flexible Disc 5 1/4" certificato 
Error Free per impiego su drive a 
due testine, o doppio densità (2Dj, 
40 tracce, con anello di rinforzo. 
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Personal Software 

La Rivista che ha inaugurato un capitolo nuovo 
nell'editoria europea dedicata al software per personal 
computer. Attualissima, interattiva col lettore (sia quello che 
già possiede un personal, sia quello che intende 
acquistarlo) Personal Software deve la sua fortuna a una 
formula espositiva del tutto originale, che fornisce agli 
'amatori' — accanto ad articoli generali e di 
approfondimento teorico — anche tutta una serie di 
programmi già predisposti e testati 

In ogni numero 

Aspetti e problemi del software 
Programmi e sistemi operativi 
Speciale 

Riviste complementari 

Bit 


Abbonarsi conviene 

10 numeri all'anno 

solo L. 28.000 
invece di L. 35.000 


In più, gli abbonati di 
Personal Software 
partecipano 
all'estrazione di 3 
Personal Computer 
Sinclair Spectrum 
distribuiti da 
G.B.C. - Rebit 

... e a quella del 
Superpremio 
JACKSON 
"3 viaggi a Londra" 
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Video Giochi 

Nata nel gennaio 1 983, questa Rivista è subito diventata, 
per migliaia di appassionati, la guida indiscussa al 
fantastico mondo dei videogames. Ricchissima di notizie, 
indicazioni, spiegazioni, suggerimenti... aperta al dialogo e 
alle 'provocazioni' di lettori giovanissimi e non, Video 
Giochi rappresenta una vera sfida alla fantasia, alla 
capacità di cimentarsi in entusiasmanti duelli elettronici, in 
una gara ideale con avversari di tutto il mondo. Video 
Giochi, infatti, dal punto di vista delle anticipazioni di 
mercato è una Rivista veramente internazionale, il 'pulpito' 
da cui tutte le più grandi Industrie mondiali di videogames 
parlano a milioni di fans. Purtuttavia, Video Giochi non è 
solo svago fine a se stesso, ma anche la dimostrazione di 
come, attraverso il divertimento, si possa arrivare ad essere 
'esperti programmatori'. Perché il mondo dei computer ha 
tante facce e quella di Video Giochi, pur essendo la più 
eccitante, non è per questo la meno istruttiva. 

In ogni numero 

Prezzi e novità 

Schemi di programmazione 

Il mercato 

Video-Gare 

Riviste complementari 

Personal Software-Bit 


Abbonarsi conviene 

11 numeri all'anno 
solo L. 25.000 
invece di L. 33.000 


i più, gli abbonati di 
Video Giochi partecipano 
all'estrazione di 
5 Basi ATARI 


... e a quella del 
Superpremio JACKSON 
"3 viaggi a Londra" 










BIBLIOTECA JACKSON 


Un settore diversificato e in continua evoluzione 
come quello dell'elettronica e dell'informatica non 
può prescindere dal libro specializzato. Il Gruppo 
Editoriale JACKSON, anche in questo campo, 
rappresenta il punto di riferimento più qualificato 
per quanti non si accontentino di un'informazione 
effimera e desiderino approfondire i mille 
argomenti legati al mondo del computer e della 
microelettronica. 

Oltre 140 sono i volumi che costituiscono 
attualmente la 'Biblioteca JACKSON' e, 
annualmente, ne vengono stampate e vendute 
oltre 150 mila copie. Sono opere di specialisti, 
contributi di prandi Centri di Ricerca, manuali per 
neofiti o testi di fondamentale importanza per 
tecnici e operatori. 

In queste pagine, al fine di facilitare la ricerca, i 
titoli della 'Biblioteca JACKSON' sono stati 
suddivisi in 10 grandi famiglie d'argomenti. 
Aprono questa panoramica gli 8 tomi di E.l. la 
grande Enciclopedia di Elettronica e di 
Informatica, l'opera che ha rappresentato il 'caso' 
editoriale dell'anno. Prima e unica al mondo, E.l. è 
sfata realizzata dalla JACKSON in 
collaborazione con il Learning Center Texas 
Instruments. Pubblicata a fascicoli settimanali, E.l. 
ha suscitato l'entusiasmo di decine di migliaia di 
lettori. Evidentemente di un'opera così, seria e 
completa, si avvertiva davvero il bisogno e è 
merito della JACKSON l'aver saputo interpretare 
e dar corpo ai desideri di un vastissimo pubblico. 
Oggi tutti i volumi della 'Biblioteca' vengono 
proposti ai lettori con una formula d'acquisto che 
prevede consistenti agevolazioni per gli abbonati 
delle Riviste JACKSON. Ma, al di là 
dell'occasione contingente, resta il fatto che la 
'Biblioteca JACKSON', nelle sue molteplici 
sfumature e specializzazioni, rappresenta un 
momento fondamentale di aggiornamento e 
approfondimento per quanti vivono nel mondo 
dell'elettronica e dell'informatica. 

Un mondo di cui la JACKSON conosce tutti i 
segreti. 





E.l. Enciclopedia 
di Elettronica e di Informatica 

Elettronica di base, Elettronica digitale (I e II), 
Microprocessori, Comunicazioni, Informatica di base, 
Informatica e società, Elettrotecnica: 8 grandi volumi 
lussuosamente rilegati, 1 500 pagine complessive, 700 
fotografie a colori, 2200 illustrazioni, schemi, tabelle a 
colori. 

Un'opera prestigiosa e unica, realizzata in collaborazione 
con il Learning Center Texas Instruments 
Sono già disponibili i seguenti volumi: 

— Elettronica di Base 

— Elettronica Digitale I 

— Informatica di Base 

L'opera sarà completata entro il 
15.4.1984 


Eccezionale offerta d’acquisto 
riservata agli Abbonati e ai Lettori 
delle riviste del 
Gruppo Editoriale Jackson 

E.l. Enciclopedia di Elettronica e di Informatica solo 

L. 200.000 invece di 
L. 265.000. Prenotate 
fin d’ora l’opera 
completa effettuando 
il pagamento anticipato. 
Riceverete subito i primi 
3 volumi e via via tutti 
gli altri sino a 
completare l’opera entro 
la primavera ’84. 

In più a tutti I sottoscrittori verrà inviata 
una Calcolatrice TEXAS INSTRUMENTS 
mod. TI-30LCD compresa nel prezzo 
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Informatica 


TELEMATICA 

Dal viewdata all'office 
automation, un panorama dei 
problemi teorico-pratici di 
questa nuovissima disciplina 
286 pag. L. 19.000 
Cod. 518D 

MICROELETTRONICA 

I come e i perché della nuova 
Rivoluzione industriale e lo 
scenario tecnico-economico- 
sociale del prossimo ventennio 
180 pag. L. 11.500 
Cod.315P 

COMPUTER GRAFICA 

L'immagine come 
informazione e il calcolatore 
come produttore d'immagine 

174 pag L. 29.000 
Cod. 519P 

DIZIONARIO DI 
INFORMATICA 


PRINCIPI E TECNICHE 
DI ELABORAZIONE DATI 

Per l'autoapprendimento dei 
basilari principi di flusso e di 
gestione nei sistemi di 
elaborazione elettronica 
254 pag. L. 17.000 
Cod. 309A 

ELEMENTI DI 
TRASMISSIONE DATI 

Un valido ausilio per tecnici e 
studenti che vogliono 
approfondire le tecniche di 
comunicazione 
178 pag. L. 10.500 
Cod. 316D 

MICROPROCESSORI 
AL SERVIZIO 
DEL MANAGEMENT 

CAD/CAM e robotica 
la loro applicazione in 
Azienda, l'impatto su qualità e 
produttivitàje prospettive 

292 pag L. 20.000 
Cod.335H 


Personal 
e Home computer 


INTRODUZIONE 
AL PERSONAL E 
BUSINESS COMPUTING 

Un approccio semplice ed 
esauriente al mondo del 
microcomputer: 
funzionamento, 
programmazione, scelta 
dei sistemi 

224 pag. L. 14.000 
Cod.303D 


GUIDA AL SINCLAIR 
ZX81-ZX80 E NUOVA 
ROM 

Per avvicinarsi all'informatica e 
apprendere i segreti della 
programmazione in BASIC 
262 pag. L. 16.500 
Cod. 318B 

APPLE II 
GUIDA ALL'USO 

Per imparare a conoscere e 
usare uno dei sistemi più diffusi 
a! mondo 

400 pag. L. 26.000 
Cod.331P 



INTRODUZIONE 
Al MICROCOMPUTER 

Voi. 0: Il libro del principiante 

240 pag. L. 16.000 
Cod.304A 


1 5000 termini inglese-italiano- 
tedesco;italiano-inglese; 
tedesco-inglese 
920 pag. L. 55.000 
Cod. 100H 


Voi. I: Il libro dei concetti 
fondamentali 

320 pag L. 18.000 
Cod.305A 



OOTOHMW Of C0WPUT» SCltHCt 

DIZIONARIO 01 INTORNIATO» 


VOI E L'INFORMATICA 

In 1 00 tavole: gli strumenti 
dell'informatica,l'Informatica, e 
l'Azienda; realtà e prospettive 
tecnologiche in modo sintetico, 
rigoroso ma completo 
11 6 pag. L. 15.000 
Cod.526A 


IL BASIC DEL PET 
E DELL'M20 

Un validissimo supporto e 
strumento di lavoro per 
chiunque voglia o debba 
imparare a programmare in 
BASIC con un Commodore o 
un Olivetti M20 
232 pag. L. 16.000 
Cod.336D 


IMPARIAMO A 
PROGRAMMARE IN 
BASIC 

CON IL VIC/CBM 

176 pag. L. 12.500 
Cod. 507A 


IMPARIAMO 
A PROGRAMMARE IN 
BASIC 

CON IL PET/CBM 

L'informatica a disposizione di 
tutti, senza inutili teorizzazioni 
e tanta pratica 
180 pag. L. 11.500 
Cod.506A 














PIERRE 
LE BEUX 


INTERFACCIAMENTO 

DELL'APPLE 

Il libro indispensabile a un uso 
'estremo' dell'APPLE: controllo 
di dispositivi, temperature, 
soglie luminose, liquidi... 

208 pag. L. 14.000 
Cod.334B 

ALLA SCOPERTA 
DELLO ZX SPECTRUM 

Le grandi possibilità del più 
piccolo dei microcomputer 
Sinclair 

320 pag. L. 22.000 
Cod.337B 


PROIBITO! 

COME AVER CURA 
DI UN COMPUTER 

Tutto quello che bisogna 
sapere per non mandare in tilt 
un calcolatore 

208 pag L. 14.000 
Cod. 333D 


APPLE - MEMO 

Sintassi dei comandi, codici 
caratteri, messaggi di errore, 
linguaggio macchina e tante 
altre utili informazioni 
150 pag. L. 15.000 
Cod. 340H 


PROGRAMMARE 
IN BASIC 

Caratteristiche e peculiarità del 
BASIC applicato a: Apple, PET, 
TRS 80 

94 pag. L. 8.000 
Cod. 513A 

IL BASIC E LA 
GESTIONE DEI FILE 
Voi. I: Metodi pratici 

Dal BASIC microsoft, ai metodi 
pratici, ai messaggi d'errore 
164 pag. L. 11.000 
Cod. 515H 


COME PROGRAMMARE 

Tutte le fasi di una corretta 
programmazione in BASIC o in 
qualsiasi altro linguaggio 
192 pag. L. 12.000 
Cod. 511A 

INTRODUZIONE 
AL BASIC 

Tecnica e pratica in un libro 
che costituisce un vero e 
completo corso di BASIC 
314 pag. L. 21.000 
Cod. 502A 


IINITRODU 

MA 


Linguaggi 
di programmazione 









IL BASIC PER TUTTI 

Per i neofiti una facile e 
immediata introduzione al 
linguaggio BASIC e al mondo 
dei calcolatori 

264 pag. L. 17.500 
Cod. 525A 

PROGRAMMARE 
IN PASCAL 

Tutti i vantaggi di un 
linguaggio sempre più 
importante e diffuso 
208 pag. L. 14.000 
Cod. 514A 


INTRODUZIONE 
AL PASCAL 

Per conoscere, capire, usare il 
linguaggio destinato a 
spodestare il FORTRAN, 
TALGOL, il Pl/I ecc. 

484 pag. L. 30.000 
Cod.516A 

IMPARIAMO 
IL PASCAL 

Consigli, problemi, esercizi per 
Tautoapprendimento del 
PASCAL. Divulgazione senza 
pedanterie 
162 pag. L. 11.500 
Cod.501A 


PASCAL 

MANUALE E STANDARD 
DEL LINGUAGGIO 

Dagli Autori del Pascal, 
il "libro" sul Pascal 
186 pag. L. 11.500 
Cod.500P 

DAL FORTRAN IV 
AL FORTRAN 77 

Per chi deve programmare a 
livello tecnico scientifico e per 
chi vuole approfondire le 
conoscenze del linguaggio 
2óó pag. L. 18.000 
Cod.517P 


CP/M con MP/M 

Un libro destinato a rendere 
semplice l'uso del CP/M e, 
automaticamente, quello dei 
microcomputer 
320 pag. L. 22.000 
Cod.510P 

IL FORTH PER 
VIC 20 E CBM 64 

La programmazione in FORTH 
e la sua implementazione sui 
Commodore VIC 20 e CBM 64 
150 pag. L. 11.000 
Cod.527B 

PROGRAMMARE 
IN ASSEMBLER 



ONE AL 

5 & 


Il manuale pratico che 
aspettavano hobbisti e utenti 
di personal computer 
1 60 pag. L. 10.000 
Cod.329A 

GUIDA ALLA 
PROGRAMMAZIONE 
IN ASSEMBLER Z80 
SUL PICO COMPUTER 

Di esercizio in esercizio fino a 
diventare esperti 
programmatori 
138 pag. L. 9.000 
Cod. 330D 









66 PROGRAMMI PER 
ZX81 E ZX80 CON 
NUOVA ROM + 
HARDWARE 

Come sfruttare tutte le capacità 
degli ZX e, addirittura, 
moltiplicarle 
144 pag. L. 12.000 
Cod. 520D 

50 ESERCIZI IN BASIC 

Una raccolta completa e 
progressiva di esercizi 
matematici, gestionali, 
operativi, statistici, 
di svago 

208 pag. L. 13.000 
Cod. 521A 


GIOCARE IN BASIC 

Il gioco come metodo 
d'apprendimento del BASIC e 
dei microcomputer 
324 pag. L. 20.000 
Cod.522A 


PROGRAMMI 
DI MATEMATICA 
E STATISTICA 

Come acquistare la logica 
necessaria a risolvere con 
metodo, senza perdite di 
tempo, i problemi con il 
calcolatore 
228 pag L. 16.000 
Cod. 552D 

PROGRAMMI 
PRATICI IN BASIC 

Programmi di tipo finanziario, 
matematico, scientifico, 
manageriale... già pronti e 
sperimentati 
200 pag. L. 12.500 
Cod. 550D 

77 PROGRAMMI PER 
SPECTRUM 

Dalla Grafica alla Business 
Grafica, dalla musica alle 
animazioni, dai giochi 
aH'Elettronica...tutte le 
possibilità offerte dallo 
Spectrum 

150 pag. L. 16.000 
Cod. 555A 


75 PROGRAMMI 
IN BASIC PER IL 
VOSTRO COMPUTER 

Programmi sperimentati e 
pronti da usare, oppure da 
rielaborare, ampliare, 
modificare, assemblare 
196 pag. L. 12.000 
Cod.551D 

SOLUZIONI DI 
PROBLEMI IN PASCAL 

Un approccio disciplinato alla 
soluzione di problemi col 
calcolatore e un modo 
garantito di imparare a 
programmare 
450 pag. L. 28.000 
Cod. 512P 

PROGRAMMI 
SCIENTIFICI 
IN PASCAL 

Per costruirsi una 'libreria' di 
programmi in arado di 
risolvere i più frequenti 
problemi scientifici e 
ingegneristici 
384 pag. L. 25.000 
Cod.554P 


USARE IL 

MICROPROCESSORE 

L'utilizzo più razionale del 
microprocessore nel controllo 
di impianti e processi 
296 pag L. 17.000 
Cod.327A 

MICROPROCESSORI 

Dai Chip ai Sistemi. 

I concetti, le tecniche e i 
componenti riguardanti il 
mondo dei microprocessori 
384 pag. L. 25.000 
Cod.320P 

I MICROPROCESSORI 
E LE LORO 

APPLICAZIONI: SC/MP 

La soluzione dei classici 
problemi che si presentano 
nella progettazione con sistemi 
a microprocessore 
1 58 pag. L. 11.000 
Cod.301D 

Z80 

PROGRAMMAZIONE IN 

LINGUAGGIO 

ASSEMBLY 

Le funzioni assembler, le 
istruzioni assembly, i concetti di 
sviluppo del software 
640 pag. L. 34.000 
Cod.326P 


Microprocessori 
e interfacciamento 


Programmi 



















PROGRAMMAZIONE 
DELLO Z 80 

Un corso sistematico per 
imparare la programmazione 
in linguaggio Assembler 
usando lo Z-80 
530 pag. L. 26.000 
Cod. 328D 

NANOBOOKZ80 

I nanocomputer NBZ80 e 

NBZ80S usati come strumenti 

didattici, per imparare il 

software, per affrontare i 

problemi e le tecniche di 

interfacciamento con CPU, 

PIO, CTC 

Voi. I: Tecniche di 

Programmazione 

256 pag. L. 17.000 

Cod. 310P 

Voi. III. Tecniche di 

interfacciamento 

4Ó4 pag. L. 20.000 

Cod.312P 

IL BUGBOOK VII 

L'interfacciamento fra 
microcomputer e convertitori 
analogici. Esperimenti per 
sistemi 8080/A - Z80 - 8085 
272 pag. L. 17.000 
Cod. 007A 

TECNICHE 

D'INTERFACCIAMENTO 
DEI MICROPROCESSORI 

I concetti, le tecniche di base, 
i componenti per assemblare 
un sistema 

400 pag. L. 25.000 
Cod. 314P 


LA PROGRAMMAZIONE 
DELLO Z 8000 

L'architettura e il 
funzionamento, nonché molti 
esempi di proqrammi dello 
Z8000 

302 pag. L. 25.000 
Cod.321D 

PROGRAMMAZIONE 
DELLO Z80 
E PROGETTAZIONE 
LOGICA 

Linguaggio assembly e logica 
digitale, più alcune efficienti 
soluzioni per spiegare l'uso 
corretto del microprocessore 
400 pag. L. 21.500 
Cod. 324P 

PROGRAMMAZIONE 
DEL 6502 

Un testo autonomo e completo 
per imparare la 
programmazione in linguaggio 
Assembler 

390 pag. L. 25.000 
Cod.503B 

GIOCHI CON IL 6502 

Tecniche di programmazione 
avanzate e loro 
sperimentazione attraverso il 
modo pratico e divertente dei 
giochi 

312 pag. L. 19.500 
Cod.505B 


ESPERIMENTI 
CON TTL E 8080A 

Elettronica digitale, tecniche di 
programmazione e 
interfacciamento dei 
microcomputer 
Voi. I 

496 pag. L. 22.000 
Cod. 005A 
Voi. Il 

490 pag L. 22.000 
Cod. 006A 

PROGRAMMAZIONE 
DELL'8080 
E PROGETTAZIONE 
LOGICA 

Implementazione della logica 
sequenziale e combinatoria, e 
uso del linguaggio assembly, 
all'interno di un sistema basato 
sull'8080 

296 pag L. 19.000 
Cod.325P 

APPLICAZIONI 
DEL 6502 

Le tecniche e i programmi per 
applicazioni tipiche del 6502 e 
dei sistemi su di lui basati 
214 pag. L. 15.500 
Cod. 504B 


8080A/8085: 


TEA, UN EDITOR 
ASSEMBLER RESIDENTE 
PER L'8080/8085 

Un valido contributo per 
scrivere e modificare 
programmi sorgente scritti in 
assembler secondo i codici 
mnemonici dei due 
microprocessori 
252 pag. L. 14.000 
Cod.322P 

DBUG 

Un programma interprete per 
la messa a punto del software 
8080 

112 pag. L. 7.000 
Cod. 313P 

8080A/8085 
PROGRAMMAZIONE 
IN LINGUAGGIO 
ASSEMBLY 

Un manuale teorico-pratico 
per tecnici, studenti, 
appassionati che vogliano 
approfondire le loro 
conoscenze nel settore dei 
microcomputer 
512 pag. L. 27.500 
Cod.323P 

INTERFACCIAMENTO 
DI MICROCOMPUTER 

Esperimenti utilizzanti il CHIP 
8255 PPI, interfaccia periferica 
programmabile della famiglia 
8080 

220 pag L. 12.000 
Cod.004A 
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IN LINGUAGGIO ASSEMBLY 













CORSO DI ELETTRONICA 
FONDAMENTALE 

Un testo di alto valore 
didattico, per capire 
l'elettronica: dalla teoria 
atomica ai transistori 
448 pag. L. 17.000 
Cod. 201A 


COMPRENDERE 
L'ELETTRONICA 
A STATO SOLIDO 

12 lezioni complete ed 
esaurienti a cura del Learning 
Center Texas Instruments 
224 pag. L. 16.000 
Cod. 202A 


CORSO 

PROGRAMMATO 
DI ELETTRONICA 
ED ELETTROTECNICA 

In 40 fascicoli monografici, di 
2700 pagine complessive, i 
concetti fondamentali di 
elettrotecnica ed elettronica di 
base: dalla teoria atomica 
all'elaborazione dei segnali 
digitali. 1000 lezioni con 
domande, risposte, esercizi, 
test... 

L. 109.000 Cod. 099A 


INTRODUZIONE Al 
CIRCUITI INTEGRATI 
DIGITALI 

Un'introduzione pratica che 
demistifica molti luoghi comuni 
e rende accessibile a tutti 
l'argomento 
112 pag. L. 8.000 
Cod.203A 


ELETTRONICA 
INTEGRATA DIGITALE 

Un testo didattico chiaro, 
completo, moderno, con oltre 
400 problemi, dedicato a 
specialisti e studenti. 
Fondamentale 
720 pag. L. 38.000 
Cod. 204A 


1* 


Componenti 
e progetti 


DAL TRANSISTOR AL 
MICROPROCESSORE 

La moderna circuteria a stato 
solido, la sua evoluzione, le 
sue prospettive 
80 pag. L. 7.500 
Cod.141A 


MANUALE PRATICO 
DI PROGETTAZIONE 
ELETTRONICA 

Per hobbisti, dilettanti, 
sperimentatori e ingegneri alle 
prese con la comprensione e 
l'uso dei circuiti elettronici 
488 pag. L. 30.000 
Cod. 205A 


CIRCUITI LOGICI 
E DI MEMORIA 

Un approccio diretto al mondo 
dell'elettronica digitale 
Voi. I 

384 pag. L. 22.000 
Cod.001A 

Voi. Il 

352 pag. L. 22.000 
Cod. 002A 


I TIRISTORI 

110 PROGETTI PRATICI 

Dal controllo della luminosità 
delle lampade a quello 
(automatico) di stufe, dalla 
velocità dei motori elettrici ai 
sistemi antifurto... 

144 pag L. 9.000 
Cod. 606D 


MANUALE 
DEGLI SCR, TRIAC 
ED ALTRI TIRISTORI 
Voi. I 

Una guida alle applicazioni di 
questa famiglia ai dispositivi a 
semiconduttore 
378 pag. L. 24.000 
Cod.612P 


PROGETTAZIONE 
CIRCUITI PLL 

L'oscillatore controllato in 
tensione, i sintetizzatori digitali 
di frequenza, i circuiti integrati 
monolitici... 

256 pag. L. 16.000 
Cod.604H 
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LA PROGETTAZIONE 
DEI FILTRI ATTIVI 

Attraverso una vasta gamma 
di tavole e grafici una pratica 
esemplificazione di come si 
costruiscono i filtri attivi 
280 pag. L. 17.000 
Cod. 603B 

GUIDA Al CMOS 

22 utili esperimenti per passare 
dalla logica TTL a quella 
CMOS 

220 pag. L. 17.000 
Cod. 605B 


IL TIMER 555 

Cos'è e come si utilizza questo 
onnipresente temporizzatore 
integrato 

172 pag. L. 10.000 
Cod. 601B 

LA PROGETTAZIONE 
DEI CIRCUITI OP-AMP 

Gli schemi di circuiti 
fondamentali che costituiscono 
le unità di base dei sistemi più 
sofisticati 

276 pag. L. 17.000 
Cod. 602B 


GUIDA MONDIALE 
DEI TRANSISTORI 
AD EFFETTO DI CAMPO 
JFET E MOS 

80 pag. L. 11.500 
Cod. 609H 

LA SOPPRESSIONE 
DEI TRANSITORI 
DI TENSIONE 

Cause, effetti, rimedi ai 
danneggiamenti, dei transitori 
d'alta tensione 
224 pag. L. 12.000 
Cod. 61 IH 


GLI AMPLIFICATORI 
DI NORTON 
QUADRUPLI 
LM 3900 E LM 359 

Teoria, sperimentazione e... 
pratica attraverso 22 
esperimenti realizzati passo 
passo 

480 pag. L. 24.000 
Cod. 610B 


GUIDA MONDIALE 
DEI TRANSISTORI 

2 86 pag. L. 23.000 
Cod. 607H 

GUIDA MONDIALE 
DEGLI AMPLIFICATORI 
OPERAZIONALI 

196 pag. L. 17.000 
Cod. 608H 
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LE COMUNICAZIONI 
RADIO IN MARE 

Come orientarsi grazie alla 
moderna strumentazione e ai 
suoi codici 

200 pag. L. 15.000 
Cod. 706A 

MANUALE PRATICO DEL 
RIPARATORE RADIO TV 

I segreti di un'esperienza 
ventennale messi al servizio di 
tutti 

352 pag L. 23.000 
Cod.701P 

IMPIEGO PRATICO 
DELL'OSCILLOSCOPIO 

Come funziona e come usare 
—con facilità e precisione— 
questo indispensabile 
strumento 

112 pag L. 16.000 
Cod. 705P 

AUDIO & HI-FI 

Una guida preziosa per 
conoscere l'HI-FI 
1 28 pag. L. 7.000 
Cod. 703D 

MANUALE PRATICO 
DI REGISTRAZIONE 
MULTIPISTA 

Regole generali, problemi, 
soluzioni e termini gergali 
1 64 pag. L. 10.000 
Cod.704D 
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ATTENZIONE! 


Per ordinare i libri 
presentati in queste 
pagine servirsi di 
questa Cedola di 
Commissione Libraria 
Fino al 28/2/'84 a tutti 
gli Abbonati 
JACKSON viene 


riconosciuto uno 
sconto del 20% sui 
prezzi di copertina 
indicati. Dopo tale 
data gli Abbonati 
avranno sempre 
comunque diritto a 
uno sconto del 10% 


sulla Biblioteca 
JACKSON, novità 
comprese. I libri 
presentati possono 
essere ordinati a 
prezzo pieno con 
questa Cedola, anche 
dai non abbonati. 


r CEDOLA DI COMMISSIONE LIBRARIA 


Spett. Gruppo 
Editoriale Jackson 
Divisione Libri 
Sono irrteressato a 
ricevere i volumi 
sotto elencati alle 
condizioni di 
pagamento 
indicate. 


Ritagliare e spedire in busta chiusa a: Gruppo Editoriale Jackson - via Roselllni 12 - 20124 Milano 

Cognome Nome 

il.. i i i i i i i li i i i il il i il i i 

Città Prov. C.A.P. 

I i I i i i l i l i I I i I I l I i I I l 


Spazio riservato alle Aziende 

□ Si richiede l'emissione della fattura 

Partito I.V.A. I I I I I I I I I I I I 


Via, ecc. Nome della via, ecc. Numero 

LLU I II I I I II II I I I II I I I II I I I I I , 

Data di nascita Telefono 

... i i i I I I i i I I 


NELLA COMPILAZIONE DELL'ORDINE INDICARE ESATTAMENTE CODICE E QUANTITÀ DEI VOLUMI 

Cod. Voi. 

Quant. 

Cod. Voi. 

Quant. 

Cod. Voi. 

Quant. 

Cod. Voi. 

Quant. 

Cod- Voi- 
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Cod. Voi. 
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Contributo spese di spedizione L. 2000 

□ Sono un vostro abbonato a: □ l'Elettronica □ Elettronica Oggi □ Automazione/Oggi 

□ Elektor □ Informatica Oggi □ Video Giochi □ Personal Software □ Bit □ Telecomunicazioni |Oggi 
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□ Allego assegno n° |_| |_I | _| I / £ _I 
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c/c n. 11ÓOÓ203 intestato a: Gruppo Editoriale Jackson 
(allego fotocopia) 


□ Ho già provveduto al pagamento con vaglia postale 
intestato a: Gruppo Editoriale Jackson (allego fotocopia) 

□ Pagherò al postino al ricevimento dei volumi (modalità 
non valida per Pencidopedial 
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CON ALIMENTATORE 



Il computer più venduto nel mondo 



Il prezzo non è comprensivo di IVA 











Giochi di inseguimento 


Strategie di caccia e di 
programmazione 

di Marcello Morchio 


I n molti video game di movimen¬ 
to il computer cerca di mangiare 
il giocatore. Marcello Morchio 
di Genova ci ha suggerito tre diverse 
strategie di caccia in un gioco per lo 
ZX81 che contiene anche alcuni 
trucchi da tenere sempre presenti. 

Si gioca in un campo diviso in tre 
scomparti da dei muri, che non pos¬ 
siamo oltrepassare pena la distruzio¬ 
ne. Nella situazione iniziale noi sia¬ 
mo l’asterisco nello scomparto a si¬ 
nistra del campo mentre l’inseguito¬ 
re è la croce a destra. Lui comincia 
subito a venire verso di noi, apren¬ 
do dei varchi nei muri: sarà proprio 
da quei varchi che dovremo cercare 
di passare per poter sopravvivere. 
Scopo del gioco è resistere il più a 
lungo possibile. 

Il movimento si ottiene utilizzan¬ 
do i tasti con le frecce, ma modifi¬ 
cando le linee 120 e 130 lo si può 
ottenere con qualunque altra combi¬ 
nazione di tasti. 

Le linee fino alla 95, eseguite in 
modo fast, inizializzano il gioco. 
Dalla linea 100 alla 210 c’è il ciclo di 
movimento e controllo, eseguito in 
modo slow per avere la permanenza 
dell’immagine, dalla 220 in poi la 
conclusione con la stampa del pun¬ 
teggio. 

11 programma usa poche variabili. 
A e B sono l’ascissa e l’ordinata del¬ 
l’inseguitore (attenzione che l’origi¬ 
ne degli assi è la posizione di 0, 0 in 
alto a sinistra), X e Y sono l’ascissa 
e l’ordinata del giocatore (simbolo 


P è il punteggio e H è il para¬ 
metro casuale che determina se l’in¬ 
seguimento deve avvenire in linea 
orizzontale o verticale. 

La prima cosa da notare è l’uso 
intelligente delle funzioni logiche 
del BASIC Sinclair. Le linee 120 e 
130 sono equivalenti a: 

120IF A$=“6” THEN LET X=X+1 
125 IF A$=“7” THEN LET X=X-1 
130 IF A$=“8” THEN LET X=Y+1 
135 IF A$=“5” THEN LET Y=Y-1 

Infatti l’espressione, per es., (A$ 
= “6”) vale 1 se A$ è “6”, mentre 
vale zero in tutti gli altri casi, quindi 
sarà X = X + 1 se A$ = “6” e X = 
X - 1 se A$ = “7”. Si noti che sui 
Sinclair la condizione logica VERO 
vale 1 e non -1 come in molti altri 
dialetti BASIC. Lo stesso tipo di 
espressione compare alle linee 150 e 
160 che calcolano le nuove coordi¬ 
nate dell’inseguitore. 

L’inseguimento può essere reso 
più incalzante in due modi: modifi¬ 
cando le linee 150 e 160 così: 

150 IF H=0 OR B=Y THEN 
LET A=A+(X>A) - (X<A) 
160 IF H=1 OR A=X THEN 
LET B=B+(Y>B) - (Y<B) 

l’inseguitore si comporta come pri¬ 
ma quando si trova in diagonale ri¬ 
spetto al giocatore, ma quando si 
trova sulla stessa ascissa o sulla stes¬ 
sa ordinata il parametro H viene 
neutralizzato dalla seconda condi- 


44 











zione delle IF. Ciò causa un raddop¬ 
pio nella velocità di inseguimento 
che impedisce al giocatore di au¬ 
mentare le distanze. 

Se si eliminano le condizioni, 
così: 



Figura 1. Hardcopy del quadro ini¬ 
ziale. 


150 LET A=A+(X>A) - (X<A) 
160 LET B=B+(Y>B) - (Y<B) 

l’inseguitore può muoversi anche in 
diagonale, cosa che il giocatore non 
può fare perché non può schiacciare 
contemporaneamente due tasti, e la 
fuga diventa impossibile. 

Provate invece a cambiare nel 
programma originale la linea 140 
con 

140 LET H=INT (RND*4) 


e osservate cosa succede. 

Un altro punto importante è quel¬ 
lo nel quale si controlla se il giocato¬ 
re è andato a sbattere contro un 
muro o è stato preso dall’insegui¬ 
tore. 

Ci sono vari metodi per ottenere 
l’effetto: il primo si basa su semplici 
PEEK, cioè va a leggere nella map¬ 
pa dello schermo dove dovrà essere 
scritto il controllando se andrà 
contro un muro o sarà mangiato. 

Il secondo metodo consiste in una 
routine in linguaggio macchina che 
svolge la stessa funzione. 

Ecco il primo metodo: 

PRINT AT X, Y; “questa istru¬ 
zione punta la posizione X, Y” 

IF PEEK (PEEK 16398 + 256 * 
PEEK 16399) <> 0 THEN GOTO 
220 

“220 è la fine del programma, dove 
viene mostrato il punteggio” 

Ecco invece il listato della rou¬ 
tine: 

dee. exdec. assembler 
42 14 64 2A 0E 40 LD HL, (16398) 


78 

4E 

LD C, (HL) 

60 

06 00 

LD B, 00 

201 

C9 

RET 


e che può essere caricato con questo 
programma: 

1 REM (sette caratteri) 

10 FOR K = 16514 TO 16520 
20 INPUT A 
30 POKE K, A 
40 NEXT K 

Bisogna inserire i codici DECI¬ 
MALI ad ogni INPUT; poi cancella¬ 
re le linee da 10 a 40 e poi scrivere il 
programma. Per mandarlo in esecu¬ 
zione bisogna scrivere come per il 
primo metodo, solo che al posto 
dello IF PEEK (... bisogna scrivere 
LET I = USR 16514 e poi IF I <> 0 
THEN GOTO 220. Questo secondo 
metodo è più veloce del primo, ma è 
un po’ più complesso. 

Si incoraggia il lettore a provare 
altre strategie di inseguimento e a 
modificare ed espandere il gioco a 
piacere. I possessori di Spectrum 
possono facilmente adattare questo 
programma per muovere un solo pi¬ 
xel in un campo molto più grande. 
Questo può essere il punto di parten¬ 
za per ottenere il vostro gioco di 
inseguimento, con tanto di handicap, 
bonus, e... ■ 


S FRST 
10 PRINT 


ao FOR C = 1 TO S 
30 PRINT ”■ I 

4-0 NEXT C _ 

50 PRINT 
©0 LET R=7 


• ;HT fijB;“ 
‘6")-<R*="7") 


70 LET 3 = 14- 
80 LET X =£ 

90 LET Y=2 
93 LET P=0 
95 SLOU 

100 PRINT RT X,Yj' 

110 LET R*=INKEY* 

120 LET X =X + (fi* = "t 
130 LET Y=Y + (fi*="8" ) - » 

140 LET H=INT (RND*2) 

150 IF H=0 THEN LET R=R+(X>R)-( 
X <R> 

180 IF H = 1 THEN LET B=B+{Y»e>-< 

Y <B» 

170 PRINT RT R,Bj“B";RT X.Yj 
180 IF PEEK (PEEK 16398+258*PEE 
K. 16399) <>0 THEN GOTO 220 
19© PRINT 
200 LET P=P + 1 
210 GOTO 100 
220 PRINT RT X>Yj“B , ‘>P 
230 PROSE 4E4 
240 CLS 
250 RUN 


Nota: 

nelle linee 10, 30, 50, il carattere è uno spazio 
inverso, quello della linea 170 una “X” inversa; quello 
della linea 220 un asterisco inverso. 


i 
5 
10 
20 
3® 
40 
50 
60 
70 
00 
90 
93 
95 
100 
110 
120 
130 
140 
150 
X <R) 
160 
Y<B) 
170 
180 
185 
190 
200 
210 
220 
230 
240 
250 
300 
310 
320 
330 

Nota: 


P.Eh E .RNDT^ TRN 

FRST _ 

PRINT 


FOR C=1 TO 8 
PRINT I 

NEXT C 
PRINT *_ 

LET R = 7 
LET B = Ì4 
LET X=2 
LET Y=2 
LET P=0 
SLOU 

PRINT RT X,Y; " ”;RT ft,e; “ " 

LET fl*=INKEY* 

LET X =X + (R* = "6“ ) - (R*="7“.' 
LET Y=Y+ lR*=“e"3 - = 

LET H = INT (RND*2) 

IF H=0 THEN LET R=R+(X>R)-( 

IF H=1 THEN LET B=S+<Y>B)-( 

prtnt rt fi,B; "B”;rt X,Y; 

LET I=USR 16514 
IF I<>0 THEN GOTO 220 
PRINT "*” 

LET P=P+1 
GOTO 100 

PRINT RT X, Y; "B" ,P 

PROSE 4E4 

CL5 

RUN 

FOR K=16514 TO 16520 
INPUT R 
POKE K/R 
NEXT K 


nelle linee 10, 30, 50, il carattere “B” è uno spazio 
inverso, quello della linea 170 una “X” inversa; quello 
della linea 220 un asterisco inverso. 


Listato 1. Listato normale. 


Listato 2. Listato con routine in linguaggio macchina già 
caricata e caricatore attivabile con RUN 300. 
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Area per linguaggio macchina 
nel BASIC ZX81 


Qualche utile 
suggerimento 
per i vostri programmi 

di Michele Petraccone 


P er risparmiare memoria e 
tempi di comunicazione con il 
registratore, è molto utile 
inserire dati o programmi in lin¬ 
guaggio macchina, con valori diret¬ 
tamente usabili, in linee REM del 
programma BASIC, generalmente 
al suo inizio per (ovvi) motivi di sta¬ 
bilità degli indirizzi. 

Quando l’area di memoria da ri¬ 
servare è piuttosto estesa, diventa 
molto noioso scrivere la lunga REM 
necessaria. Si può anche dividerla in 
più linee, ma questa comodità si 
paga poi in termini di occupazione 
di memoria (6 byte per ogni linea) e 
soprattutto in termini di flessibilità, 
in quanto modificando i programmi 
LM si deve tener conto della lun¬ 
ghezza della linea. 

Ecco quindi una ricetta per svelti¬ 
re la preparazione di una linea 
REM, lunga quanto si vuole. 
Scrivete una linea di questo tipo: 

1 REM 000000000X000000000X000 
000000X000000000X0000 

Nella linea sono compresi 44 ca¬ 
ratteri; la sua lunghezza effettiva è 
di 50 byte = 2 (numero linea) + 2 
(lungh. linea) 4- 1 (REM) + 44 + 1 
(118 = separatore di linea), ma la 
lunghezza indicata in 16511/12 è 46 
= 1 (REM) + 44 + 1 (118), cioè 
l’intera lunghezza meno le due cop¬ 
pie di byte iniziali. 

Con la funzione EDIT ricopiate 
tante linee uguali alla prima quante 
ve ne servono. 


Poniamo che abbiate ricopiato al¬ 
tre 9 linee; in tal caso avrete occu¬ 
pato 10 X 50 = 500 byte, dal 16509 
al 17008. Adesso vorremmo che il 
BASIC non utilizzasse questa zona, 
ma che nella esecuzione dei pro¬ 
grammi partisse direttamente da 
17009: basta simulare che la prima 
linea abbia una lunghezza pari al¬ 
l’intera zona che ci interessa riser¬ 
vare. 

Calcoliamo la nuova lunghezza: 
(500-4): 256 = 1 (MSB) 
con resto 240 (LSB). 

Attribuiamo questi nuovi valori 
con: 

POKE 16511, 240 
POKE 16512, 1 

Per serrare le linee sullo schermo 
dovreste eliminare i 118 a partire da 
16558 fino a 16958, con passi di 50, 
mediante istruzioni immediate (PO¬ 
KE 16558, 0; POKE 16608, 0; 

.; POKE 16958, 0). 

Per chi vuol far eseguire automa¬ 
ticamente la cancellazione dei 118 
ed ottenere anche una maggiore 
flessibilità, consiglio il seguente 
metodo: 

1 REM 

000000000X000000000X000 

000000X0000000000X0000 

(‘50 16558’) 

2 REM 

(da 2 a 8 altre 7 linee copiate dalla 1) 
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8 REM 

70 FOR K = 16514 
TO 17045 

72 IF PEEK K = 118 
THEN POKE K, 0 
74 NEXTK 
76 POKE 16511,037 
78 POKE 16512,002 
80 REM OOOOOOOOOX 
82 REM OOOOOOOOOX 


( 50 16908 ) 

( 31 16939 ) 

( 29 16968 ) 
( 7 16975 ) 
( 27 17002 ) 
( 27 17029 ) 
( 16 17045 ) 
( 1617061 ) 


I numeri tra parentesi indicano per 
ogni linea la lunghezza e l’indirizzo 
del 118 finale. 

Nei valori POKE delle linee 76 e 
78 sono scritti anche gli zeri non 
significativi per avere sempre un to¬ 
tale di 3+3 byte, anche se varia il 
valore rappresentato. 

Date il RUN. Dopo cinque secon¬ 
di il programma avrà inglobato nella 
prima le linee da 2 a 82. e avrete 


pronti 547 byte disponibili da 16514 a 
17060. 

Si faccia attenzione a non trattare 
la linea 1 con EDIT altrimenti il 
sistema operativo dello ZX81 incon¬ 
trerebbe in una linea REM dei 126, 
che sono i separatori tra la codifica¬ 
zione decimale e quella esponenzia¬ 
le, in 5 byte, delle variabili alle linee 
da 70 a 78. Il risultato sarebbe l’eli¬ 
minazione dei 126 e dei 5 byte suc¬ 
cessivi. 

Si noti che una routine in linguag¬ 
gio macchina difficilmente non con¬ 
terrà un byte a 126 (7E) che corri¬ 
sponde all’istruzione LD A, (HL), 
molto usata. 

Le due linee REM 80 e 82 servono 
per accorciare l’area riservata, senza 
usare EDIT. 

Per accorciarla di 32 byte, basta 
eliminare le due linee, eseguendo in 


modo immediato: 

POKE 17045, 118 

POKE 17029, 118 

POKE 16511, 5 

e cancellandole. 

Allungare è più facile; per aggiun¬ 
gere 32 byte, scrivete: 

90 REM... (26 caratteri)... 
poi, in modo immediato: 

POKE 16511, 69 

POKE 17061, 0 

Alle linee del programma sono 
stati attribuiti i numeri da 70 a 82 e 
non numeri più bassi, perché in tal 
caso il sistema operativo, già privo 
del riferimento dei 118, si confonde¬ 
rebbe bloccandosi sulla linea NEXT 
K con errore C. ■ 
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Accesso per chiave logica 
ad un archivio “relative” 


Una efficiente tecnica 
di memorizzazione 
dati 


di Gioele Confortini 


utilizzo di un archivio “rela¬ 
tive” o, come definito in 
BASIC, “random” offre in¬ 
dubbi vantaggi sia per rapidità d’ac¬ 
cesso sia per il minimo impegno di 
memoria richiesto dal software ne¬ 
cessario alla gestione dell’archivio. 

L’organizzazione relative, però, 
offre il fianco ad una critica: l’acces¬ 
so è limitato alla conoscenza “a 
priori” del numero relativo di re¬ 
cord che si vuol trattare costituendo 
tale numero, contemporaneamente, 
l’unica chiave identificativa del re¬ 
cord stesso. 

Da queste due limitazioni nasco¬ 
no, da una parte, problemi di svi¬ 
luppo di applicazioni e, dall’altra, se 
l’applicazione non è stata studiata 
con una certa cura, difficoltà o limi¬ 
tatezza di utilizzo della stessa. 

Mantenere, poi, fino in fondo tut¬ 
ti i vantaggi dell’organizzazione “re¬ 
lative” e, contemporaneamente, la 
flessibilità sia di sviluppo che di uti¬ 
lizzo dell’accesso per chiave logica è 
un po’ come avere la botte piena e 
la moglie ubriaca: qualcosa bisogna 
concedere (o alla botte o alla mo¬ 
glie) ma se il risultato sarà ragione¬ 
volmente accettabile il peso dell’im- 
plementazione non sarà perso. 

L’utilizzo di strutture concettuali 
collaudate (liste ed alberi binari) ha 
permesso una soluzione semplice 
del problema: non si fa riferimento 
ad alcun linguaggio di programma¬ 
zione anche se la presenza di algo¬ 
ritmi ricorsivi suggeriscono implici¬ 


tamente il Pascal per l’eleganza for¬ 
male che permette. 

Di ogni problema affrontato si 
fornisce il diagramma a blocchi riso¬ 
lutivo ed un breve commento dello 
stesso, nella convinzione che “una 
rappresentazione grafica vale mi¬ 
gliaia di parole” (con il che, mentre 
si segue la tendenza attuale dell’in¬ 
formatica, si rivaluta un po’ la fun¬ 
zione del tanto bistrattato diagram¬ 
ma a blocchi). 

Tutta la discussione è relativa ad 
una sola chiave logica: la generaliz¬ 
zazione a più chiavi non presenta 
particolari problemi. 

Archivio indici 

È un archivio di supporto median¬ 
te il quale è pilotato l’accesso all’ar¬ 
chivio di lavoro: ha struttura “rela¬ 
tive”. 

I record che compongono l’archi¬ 
vio indici sono: 

N° record Contenuto 

1 R(elative) R(ecord) 
N(umber) del primo 
record disponibile sul¬ 
l’archivio di lavoro; 

2 - identificazione della 
prima chiave logica 
dell’archivio di lavoro, 

- caratteristiche della 
prima chiave logica: 
formato, lunghezza, 
posizione nel record 
dell’archivio di iavoro, 

- RRN del primo re- 
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Figura 1. Esempio numerico. 



cord in sequenza 
ascendente per questa 
chiave = forward link 
radice, 

- RRN del primo re¬ 
cord in sequenza di¬ 
scendente per questa 
chiave = backward 
link radice, 

- medium pointer di 
partenza dell’albero bi¬ 
nario dell’archivio di 
lavoro per questa 
chiave; 

3-^n come il record N° 2 ma 
relativi alla 3 a -5- enne¬ 
sima chiave logica. 

Accesso sequenziale 
per chiave logica 

Richiede che venga costruita una 
lista semplice: per completezza la li¬ 
sta viene sviluppata a doppio lega¬ 
me ma, se conveniente, il backward 
link può essere tralasciato. 

La funzione torna utile in tutti 
quei casi nei quali è necessaria una 
elencazione in ordine di chiave logi- 



Figura 2. Sviluppo della lista. 


ca: nomi, descrizioni, codici di lavo¬ 
ro (provincia, rappresentante, sin¬ 
dacato, CAP, ecc.). 

I passi da programmare sono: 

1) Caricamento in memoria di una 
tabella di lavoro dall’archivio 
dati. 

Ogni elemento di tabella è costi¬ 
tuito da: 

a) RRN del record Ietto, 

b) forward link (inizializzato a 
zero), 

c) backward link (inizializzato a 
zero), 

d) flag di lavoro (inizializzato a 
zero), 

e) left pointer (inizializzato a 
zero), 

f) right pointer (inizializzato a 
zero), 

g) chiave di cui si vuole l’ordina¬ 
mento. 

Sviluppare un contatore N che 
contenga il numero degli elemen¬ 
ti della tabella. 

2) Ordinamento della tabella per 


chiave. 

3) Sviluppo della lista (figura 2): 
comporta che: 

- il RRN del 2° elemento di ta¬ 
bella sia portato sul F.L. del 1° 
elemento di tabella, 

- il RRN del 1° elemento di ta¬ 
bella sia portato sul B.L. del 2° 
elemento di tabella, 

- il procedimento venga iterato 
sino aU’esaurimento del numero 
degli elementi della tabella. 

Al termine del ciclo, il B.L. del 
1° elemento della tabella e il F.L. 
dell’ultimo elemento della tabel¬ 
la sono a zero: in fase di scansio¬ 
ne dell’archivio tale valore indica 
il termine dell’operazione di 
scansione. 

Al termine del ciclo, il RRN del 
1° elemento verrà riportato sul 
F.L. radice del record indice per 
questa chiave: il RRN dell’ulti¬ 
mo elemento verrà riportato sul 
B.L. radice del record indice per 
questa chiave. 
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Accesso random per chiave logica 

La presentazione sequenziale di 
un archivio è un fatto che nella pra¬ 
tica si verifica con una frequenza 
piuttosto bassa: produzione di listi¬ 
ni, liste alfabetiche di vario tipo, 
elenchi per provincia ecc. non sono 
elaborazioni giornaliere mentre, di 
contro, l’interrogazione estempora¬ 
nea per conoscere qualche cosa è 
all’ordine del minuto. 

Per accelerare i tempi di ricerca si 
è adottata una struttura ad albero 
binario: ma un albero binario, per 
poter funzionare correttamente, ri¬ 
chiede che non vi siano chiavi dop¬ 
pie. È necessario, pertanto, esami¬ 
nare e correggere la tabella costruita 
per eliminare (ma non perdere!) le 
eventuali chiavi doppie presenti. 

I passi da programmare sono: 

1) Identificazione delle chiavi dop¬ 
pie (figura 3): 

se due o più chiavi risultano 
uguali, il relativo flag di lavoro 
viene posto uguale a 1. 

La scansione viene fatta su tutti 
gli elementi della tabella. 

2) Compattazione della tabella (fi¬ 
gura 4): questo comporta che: 

- gli elementi dei vari sottoinsie¬ 
mi della tabella identificati dal 
flag di lavoro = 1 (escluso il pri¬ 
mo di ogni sottoinsieme) siano 
aggiornati sull’archivio dati, 

- gli elementi dei vari sottoinsie¬ 
mi della tabella identificati dal 
flag di lavoro = 1 (escluso il pri¬ 
mo di ogni sottoinsieme) siano 
cancellati dalla tabella spostando 
verso l’alto i restanti elementi 
della tabella, 

- il valore di N sia corretto del 
numero degli elementi cancellati. 

3) Sviluppo dell’albero binario (fi¬ 
gura 5): 

si calcola la media delle coppie di 
valori minimo-medio/medio¬ 
massimo ottenuti dal calcolo pre¬ 
cedente, 

le terne sviluppate (minimo-me¬ 
dio-massimo) vengono memoriz¬ 
zate solo se i valori minimo/me- 
dio sono diversi: in questo caso, 
viene memorizzato anche il poin- 



Figura 3. Identificazione delle chiavi doppie. 




Leggi per RRN (K) 






F.L./B.L/Flag 

L.P./R.P. 



L + 1 

K + 1 


^Scrivi per RRN (K)^ 


elemento (K) di 
tabella in 
elemento (L) di 
tabella 




maggiore 


Figura 4. Compattazione della tabella. 
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Figura 5. Sviluppo dell’albero binario sulla matrice A (N, 5). 
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Figura 6. Trasposizione dell’albero binario. 


ter della riga sulla quale la terna 
è archiviata. 

Al termine del ciclo, vengono 
memorizzati anche i valori mini¬ 
mo e massimo di partenza. 

Tutta l’elaborazione si sviluppa 
su di una matrice di N righe per 
5 colonne: il valore di N è quello 
corretto al punto 2) precedente. 

Come leggere la matrice (vedi 
esempio numerico): 
le colonne significative sono la 
2), la 4) e la 5). 

La colonna 2) contiene il pointer 
all’elemento della tabella ordina¬ 
ta che, per quella riga, risulta es¬ 
sere il medio tra gli estremi (indi¬ 
cati in col. 1 e col. 3). 

La colonna 4), se diversa da ze¬ 
ro, indica la riga della matrice 
che, a colonna 2), contiene il 
predecessore dell’elemento 
medio. 

La colonna 5), se diversa da ze¬ 
ro, indica la riga della matrice 
che, a colonna 2), contiene il 
successore dell’elemento medio. 
Se la colonna 4) è zero, il medio 
di colonna 2) non ha predeces¬ 
sori. 

Se la colonna 5) è zero, il medio 
della colonna 2) non ha succes¬ 
sori. 

Se la colonna 4) e la colonna 5) 
sono entrambe a zero, il medio 
della colonna 2) è un elemento 
terminale dell’albero, cioè una 
foglia. 

4) Trasposizione dell’albero binario 
sulla tabella (figura 6). 

Su ogni elemento di tabella, 
identificato da col. 2), deve esse¬ 
re trasferito nel left pointer il 
RRN dell’elemento di tabella 
puntato dal medio della riga di 
matrice identificata da col. 4), 
nel right pointer il RRN dell’ele¬ 
mento di tabella puntato dal me¬ 
dio della riga di matrice identifi¬ 
cata da col. 5): a condizione, ov¬ 
viamente, che né col. 4) né col. 

5) siano a zero. 

Al termine del ciclo, il valore 
medio della prima riga di matrice 
va impostato sul medium pointer 
del record indici della chiave in 
elaborazione. 


Interrogazione dell’archivio 

Ottenuta la chiave logica d’acces¬ 
so e identificato e letto il corrispon¬ 
dente record indici, impostare come 
RRN di lettura il medium pointer: 
eseguita la lettura, confrontare la 
chiave data con la chiave letta. 

a) Chiave data maggiore di chiave 
letta: se il right pointer non è 
zero, impostare come RRN di 
lettura il right pointer e ritornare 
alla lettura; se il right pointer è 
zero, si verifica la condizione di 
non trovato; 

b) chiave data minore di chiave let¬ 
ta: se il left pointer non è zero, 
impostare come RRN di lettura 
il left pointer e ritornare alla let¬ 
tura; se il left pointer è zero, si 
verifica la condizione di non tro¬ 
vato; 

c) chiave data uguale a chiave letta: 


si verifica una condizione di in¬ 
certezza in quanto potrebbero es¬ 
servi più chiavi uguali: analizzare 
il flag di lavoro letto; se è zero, 
la chiave fornita è unica e si ha la 
condizione di trovato; se è 1, uti¬ 
lizzando il forward link, esporre i 
dati delle varie chiavi uguali sino 
ad avere conferma di quella ri¬ 
chiesta. 

Valutazione dei tempi 

Considerando un archivio di 1,024 
madri/figlie (2 10 ), si ha un massimo 
di 10 seek per individuare qualun¬ 
que record: i tempi medi di accesso 
degli attuali floppy vanno da 70 a 
100 millisecondi. 

Quanto sopra porta a dire che, 
per l’archivio considerato, si ha un 
massimo d’attesa che varia tra 7/10 
di secondo ed un secondo prima di 
avere la risposta: mediamente poi 
tali tempi si dimezzano. 
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Riduzione dei tempi di risposta 

Anziché sviluppare l’albero bina¬ 
rio sull’intera tabella ordinata, si 
può pensare di svilupparlo su frazio¬ 
ni della stessa: risulterà meno pro¬ 
fondo e di conseguenza la ricerca sa¬ 
rà più rapida. 

Questo porta a frazionare anche 
la chiave logica: non esistono condi¬ 
zioni particolarmente complesse in 
quanto può essere automaticamente 
definita in un campo di valori. Ad 
ogni limite superiore di valore corri¬ 
sponderà un record indici. 

Inserimenti (figura 7) 

“Dove” inserire nell’archivio il 
nuovo record, è pilotato dal RRN 
presente sul 1“ record dell’archivio 
indici: non presenta quindi partico¬ 
lari difficoltà. 

L’operazione di inserimento di¬ 
venta, invece, particolarmente deli¬ 
cata quando si passa a considerare 
le chiavi logiche presenti nel record: 
è necessario infatti aggiornare il left 
e il right pointer dell’albero binario 
nonché il forward ed il backward 
link della lista associati alle singole 
chiavi logiche. Inoltre, può verifi¬ 
carsi la condizione di “underflow” 
(inserire il minore del minimo) o di 
“overflow” (inserire il maggiore del 
massimo): e per lo stesso record, su 
chiavi logiche diverse, le due condi¬ 
zioni possono verificarsi. 

Gli inserimenti vanno seguiti con 
una certa attenzione in quanto po¬ 
trebbero portare ad una crescita sbi¬ 
lanciata dell’albero, con conseguen¬ 
te aumento dei tempi di ricerca: 
quando rigenerare l’albero potrebbe 
essere determinato o a scadenze fis¬ 
se o in base al numero degli inseri¬ 
menti. 

Cancellazioni 

Realizzare la cancellazione di un 
record inserendolo, ad esempio, in 
una catena di record disponibili può 
portare all’eliminazione di un nodo 
dell’albero: di conseguenza tutti i 
record dipendenti dal nodo cancella¬ 
to sparirebbero a loro volta. 

È più prudente, e più sempliée, 
mantenere un flag di cancellazione 
su ogni record e, in sede di ristruttu¬ 
razione dell’albero, scartare i record 
che abbiano il flag in on. 
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del record ultimo 
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RRN del record da 
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RRN record ultimo letto 
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da inserire 
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( per F.L. record da ] 
\Jnserire J 


( Aggiorna record ^ 
indici ) 


( Aggiorna record A 
pilota archivio J 


Figura 7. Diagramma a blocchi della routine Inserimento. 
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Dedalo 3-D 


Guai a perdere 
Forientamento. 

Dal labirinto non si 
esce più 


di Alessandro Guida 


I l gioco consiste nel riuscire a 
venir fuori da un labirinto. Do¬ 
po le istruzioni viene mostrata 
la pianta del labirinto vista dall’alto, 
con una freccia che indica la posizio¬ 
ne di partenza. Iniziato il gioco il 
labirinto viene visualizzato in tre di¬ 
mensioni. Quindi, risulta visibile so¬ 
lo una parte del corridoio in cui ci si 
trova. Guai a perdere l’orientamen¬ 
to! Il programma gira sul VIC senza 
espansioni, o con l’espansione da 3 
Kbyte. Con espansioni maggiori di 3 


Kbyte occorre apportare le seguenti 
modifiche: 

2 POKE 56, PEEK (56) -2: POKE 
52, PEEK (52) -2 
4 DIMM$(1),A$(3): V=4096: W= 
15872 - 8192 ☆ (FRE(O) > 
13000): E = V - W. 

Attenzione che alcune linee di 
programma sono più lunghe di 80 
caratteri per cui è necessario digitar¬ 
le utilizzando le forme abbreviate 
dei comandi (per esempio, 
PRINT=?). Buon divertimento. ■ 


Listato 1. Il programma Dedalo 3-D. 


1 REM****************>DEBflL0 3-B<»****¥****** 

2 P0KE56,23 : P0KE55,5 : P0KE52,23 - F0KE51,5 P0KE649,1 

4 cima: v=76S9 11=7174 e=58g 

6 G03UB88 T1 1 = " 000000 " M*<0)="BnKSKE" «»<l>«"V.V iV.ViWiViV.Vì 

3 2=S ■ 3P=-22'30«-l : 307036 

15 PRIHT"StrTfiB<7>m* 

12 GETN* : I FtTt = THER; 10 
14 IFMt="R"THEH134 

16 70RI=IT041 IFMB*<fl*<.B>, I, DCWTHEHHEXT 
18 ONIGOTO20,22,24,26,28 

20 E-0-SF=-22:50=-l:G0TD38 

22 E=1 : SF-1 : S0=-22 GOTO30 
24 E=2 3P=22 : Su=l : GOTO30 
26 B=3 : 3F--1 : 30=22 : G0TG36 

23 GOTO12 

30 IFMtO" I "THEH36 

32 I FF'EEK (P3+SF>=102'THEri 12 

34 IFF3+SPCW+22THEH146 

35 PS-PS+8P POKEPS,46 

36 PRINTTW1 TfiB<7)TIt FORZ=0TO20 : POKEV+44+1,33 :NEXT 

33 FORI=0104 

40 IFI>0RHEPEEK<PS+I*SP? =46THEHFGK.EV+316-1*44,42 

42 CH»e IFP3+I*3PCi4+22HNEPEEK<PS+I*3F)=32TH£UCH=l G03UE7£ : 307012 
44 IFPEEK<P3+I*3P)=102THEHOOSUB78 : G0T012 

46 IFPEEK < PS-t-1 «SP+SO> 0102THEH56 

43 F(KEV+308-1*42,73:POKEV+287-1*42,78 
50 IFPEEK (P3+1 *SP-S0 >O102THEN68 

52 P3KEV+328-1*46,77 :POKEV+305-1*46,77 
54 HEXT : G0SUB73 : GOTO 12 
56 IF1=0THEH62 
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Seguito listato 1. 


2> , LEFT*<!1»<CH>-K) NEXT RET 


58 C=V+308-I*42 

63 POKEC,101 • OC-22 : IFOV+66THEN60 

62 POKEC,7?:C«V+265-I*42:PQKEC-1,76 :POKEC,122 :IFI=0THENFOKEC-i,13G 

64 C=C-22-FOKEC,103 IFOV+S8THEN64 
66 PCKEC-22,30 : GOTO50 
SS IFI=87HEN72 

63 C=V-32S-I#46 

73 FOKEC, 103'-C=C-22: IFOV+66THEN73 

71 POKEC,80 

72 0=7+233-1*46■POKEC,76 POKEC+1,122'IFI=0THENPQKEC+1,132 

74 C=C-22- FOKEC, 101 ; IFOV+S3THEH74 
76 POKEC-22,73-30T034 

78 K=21-I*4 :012-1*2 ■ FRI NT ■ F0RO3T0C ?RINT7AB«21-K> 

•JRH 

se frinì'E iaaKsiswuoi le istruzioni?” 

82 3ETR$ : IFR*=”"THEN82 

54 IFfl$=”H"THEH110 

55 P0KE36875 ,27 PRINTCHR*<14>,“S3SMi***S7Rl RITENTOi*****• 

83 PRINT"WFR TI NOSTRO LR FIAN-TR DI UN LABIRINTO" 

38 PRINT-'MIJ CI SEI DENTRO ! " : PRINT “BLA TUR POSIZIONE E'IM8SI UBICATA BRLLR FRECCI 
A” 

32 PRINT''CHE NOSTRA ANCHE LR” : rRIHT'\STUfl DIREZIONE! PRINT "US® VEDRAI TUTTO I 
N 

34 PRINT”5T3 3-DIMEhSIOHI! “ : FRINT”fi FRENI UN TASTO” 

96 GETR* : IFR*=" ' THE-N96 

98 FRINT'TPER AIUTARTI LASCERRl” : PRINT"BLE IMPRONTE DOVE SEI" PRINT' UDIR' FtìSSF.T 
0” 

103 pr inttpf< 3 > " sa-, nana • ajsnnssr 

102 RRINT"Bk“AVANZI DI 1 PASSO” PRINT"*''=TI GIRI R SIN." 

104 FRIHT»BL“TI GIRI R DESTRA” : FRINT”B\=TI GIRI INDIETRO” 

106 RRlNT“»=RINUNCr '• PRINT ”BK FRENI UN TASTO"; 

103 GETR* : IFR*«""THEN108 

110 FRINÌ"13";CHR*(142>:P0KE36873,8•B»IWT<RND<0>*20+1) : FOR1-0TO21 IFI=37HES?CKEV+ 
1,32 ■' 00TQ114 

112 POKEV+I,102 
114 NEXT 

116 FORR=1T021 • F0KEV+R422. 102 •'PQKEV+R022+21,102-rORC=lTO20 A“INT<RS3i:>*.5> 

113 IFPEEK<V+W22+C-22> »102THENPOKEV+R*22*C» 102-70*R • GOTO 124 

123 I F-'EcK < V-HW22+C-2i >«32ANDPEEK<V+R*22+C-23)“32THENP0KEV+R*22+0,182 GOTO 124 

122 1FFSEX ; V+R#22+C -23 ) «32AKDPEEK < V+R022+C-1 ) «32THENP0KEV*R*22*C, 132 : GOTO 124 
,23 POKEV+R¥22+C,32 

124 NEXT ■ NEXT '■ F0RC=2TC21 : F0KEV+484+C, 102 : NEXT ; FORI=010505 ; POKEW+I, PEEKCV+I ) : NEXT 
>2.-2 

.26 D»C+V+336 

123 IFFZEr<CB>=102THENC“C+l : GGT0126 
130 PS=i-i+356+C ■ F0KEF3,46 ■ POKED, 30 

132 FORI“1TO30-POKED,188-PEEK<D>•FORM=1TO300 NEXT NEXT PRINT”3“ : RETURN 
1.34 -RINT'TI 1 ' 

136 <TOR>0TO505 POKEV+I,FEERi.W+I ) : NEXT PRINT”» r ORI =37328 : FRINÌ; HZXT PRINT* 
SVUOI GIOCARE?'- 

.32 SETA* Irr.i- "THENFOKEPS+E, 220-FEEK<PS+E? G0T0138 
140 IFfi$="S”THENPRINT "3‘ '00106 

142 :??■$*■■ ri - THENPRI NT " OINWMt IPO!” : RGKE64?, 18 END 
Ivi GOTO138 

146 B*»TI* PRINT ’IMma»*«»DRAVIS3iM0! !*#*** 

,43 trini nsauEi uscito in ». 

150 PRINTLEF'*<A*,2>;'0RE . i1IB*<R4. i,2.'. 1 MIN ";RIGHTt(A*,2 J;"SEC’ 

,12 FRINÌ"HK03RA TI NOSTRO LA” : PRINT”SCSTRRDfi PERCORSA’ : FORI=5105808 : NEXT :3'313 
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Il taglio del TI99/4A 


Un avvincente gioco 
di strategia 

di Alessandro Chessa 


N on molto tempo fa, nel nu¬ 
mero di Dicembre dell’anno 
scorso della rivista scientifica 
“Le Scienze”, appariva, nella con¬ 
sueta rubrica “Temi Matematici” 
condotta brillantemente da Douglas 
R. Hofstadter, un interessante arti¬ 
colo intitolato “Taglio, Sfoggio, 
Hruska, evoluzione del comporta¬ 
mento e altri giochi di strategia”, 
nel quale venivano presentati alcuni 
originali giochi numerici a carattere 
strategico-psicologico. 

Tra i vari giochi, del resto tutti 
molto accattivanti, uno in particola¬ 
re aveva stimolato la mia curiosità 
mentale. Intendo riferirmi al “Ta¬ 
glio”, un gioco ideato dallo stesso 
autore e da un suo collega, Robert 
Boeninger. Le regole del gioco sono 
a dir poco semplici. Si tratta di sce¬ 
gliere mentalmente, ad ogni turno, 
due numeri, uno per ciascun gioca¬ 
tore (si gioca in due), “pescandoli” 
da uno stesso insieme numerico (nu¬ 
meri interi da 1 a 5) per poi con¬ 
frontarli tra di loro; se la loro diffe¬ 
renza risulta diversa da 1, ciascun 
giocatore terrà il proprio numero 
sommandolo al proprio punteggio; 
se invece la differenza è esattamente 
1, il giocatore con il più basso dei 
numeri li sommerà entrambi, “ta¬ 
gliando” l’avversario che rimarrà 
all’asciutto. Quest’ultimo espediente 
è stato naturalmente escogitato per 
evitare che si possano scegliere trop¬ 
po facilmente numeri grandi, ren¬ 
dendo così il gioco più movimentato 


e più articolato nel suo svolgimento. 

Quello che più mi affascinava era 
la straordinaria possibilità, troppo 
spesso disattesa da sofisticati (come 
grafica) ma pur sempre limitati gio¬ 
chi spaziali, di prestarsi ad una infi¬ 
nità di soluzioni e di creare una par¬ 
tita che accumulasse livelli su livelli 
di gioco, limitati solo dalla fantasia 
e dalla disponibilità di tempo dei 
giocatori. 

La bravura in questo gioco consi¬ 
ste nell’attivare una strategia fatta di 
astuzie psicologiche appositamente 
congeniate per sviare e poi “taglia¬ 
re” l’avversario. Ciò si può ottenere 
per esempio, ostentando un deter¬ 
minato schema numerico, quale 4-4- 
4, per spingere l’avversario a dire 3 
proprio nel momento in cui voi dire¬ 
te 2 (non sempre capita!). 

È un gioco fatto di sottili tensioni 
psicologiche che spesso si risolvono 
in una serrata battaglia che ha come 
unico superstite (vincitore) il più 
saldo e forte di nervi. 

Essendo possessore di un compu¬ 
ter (TI99/4A) intravvedevo la possi¬ 
bilità, del resto già prospettata dallo 
stesso Hofstadter, di fare del mio 
computer un valente giocatore di 
Taglio. 

Problemi e idee per un programma 
“esperto” di Taglio 

Le maggiori difficoltà incontrate 
nell’ideare un programma “esperto” 
nel gioco del Taglio derivavano dal 
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fatto che non trattandosi di un gioco 
“deterministico” o quasi come ad 
esempio gli scacchi, non ci si poteva 
avvalere di tecniche euristiche, tipi¬ 
che delle applicazioni nel campo 
dell’intelligenza artificiale. Per il ta¬ 
glio si deve più propriamente parla¬ 
re di gioco “probabilistico”, nel sen¬ 
so che la strategia di gioco si può 
fondare solo su previsioni, più o 
meno probabili, ricavate attraverso 
una ricerca statistica delle giocate 
precedenti che riveli delle ricorsività 
di schemi numerici, dove per schemi 
numerici intendo sequenze ben de¬ 
terminate di numeri. Occorreva, 
quindi, che il computer cogliesse gli 
schemi, tal volta anche involontari 
(e questo l’ho sperimentato perso¬ 
nalmente), dell’avversario e, giocan¬ 
do in effetti sulla sua psicologia, se 
ne servisse per generare previsioni 
ragionevolmente fondate; ma que¬ 
sto non era evidentemente sufficien¬ 
te. A questo riguardo vorrei fare un 
esempio abbastanza significativo. Se 
nel corso di una partita, per due gio¬ 
cate consecutive scegliamo il nume¬ 
ro 1, il computer alla terza avendo 
individuato lo schema numerico 1-1, 
si aspetterà di nuovo un 1 e sarà 
quindi portato a giocare un 5, dato 
che in questa situazione è la scelta 
più vantaggiosa (5-1= +4). Natu¬ 
ralmente conoscendo già in prece¬ 
denza la sua scelta, lo potremo facil¬ 
mente tagliare con un 4, guadagnan¬ 
do ben 9 punti. Ora, pur ammetten¬ 
do che in tutti e tre i turni il compu¬ 
ter abbia giocato un 5, la somma to¬ 
tale dei punteggi risulta comunque a 
nostro favore. È chiaro che se pro¬ 
vassimo a ripetere il tranello non in¬ 
correrebbe nello stesso errore, ma 
per evitare che lo stesso si possa ve¬ 
rificare per altri schemi numerici, 
diversi da 1-1, si rende evidente¬ 
mente necessaria una vera e propria 
strategia di gioco che diminuisca la 
prevedibilità delle mosse del com¬ 
puter. 

Il mio programma cerca di realiz¬ 
zare tutto ciò sopra riferito. 


Funzionamento del programma 

Adesso in breve tenterò di spiega¬ 
re come effettivamente funziona. 

Una volta inserito il numero del 
giocatore (N) appare la scritta 


1 REM a*****#**»**»»*##***» 

2 REM **************.*»**«* 

5 REM ****** TAGLIO ******* 

4 REM *••«**•«•««*•»»•«»••« 

5 REM ••*•••*««•««**•**•••« 

6 REM ********************* 

7 REM * PERSONAL SOFTWARE * 

8 REM ««•••*•***«•*«•**«««» 

9 REM **»*•««*••**********» 

10 REM 
12 REM 
14 REM 
16 REM 

20 REM 

21 REM - 

22 REM Gioco Strategico 

24 REM Idealo da 

26 REM Douglas R Hofstadler 
28 REM tratto da"Le Scienze" 

'*> REM - 

■2 RLM •**»«•**«*•••«*•***« 

34 REM - 

36 REM Versione Computar di 
38 REM Alessandro Chiassa 

40 REM Su Homa Computar: TI 99/4A<Texas I ) 

41 REM Versione Basic 

42 REM *EXTENDED BASIC* 

44 REM 

46 REM Cagliari 17/4/1983 

47 REM - 

48 REM ******************** 

50 REM Bibliografia. 

52 REM La Scienza N 172 

54 REM Die amb ra/82 

56 REM ******************** 

58 REM 

59 REM 

60 REM ******************* 

61 REM *•***VARIAB IL I ***** 

62 REM *••*•*»»«**«**»*»** 

63 REM 

64 REM X(200> VETT PRINC 

65 REM Y < 200). VETT SECON 

66 REM N NUM. GIOCATORE 

67 REM C CONTATTORE VETT 

63 REM NC NUM COMPUTER 

69 REM NA NUM AVVERSARIO 

70 REM CASI * 

71 REM CAS2. P**NUM CASUALI 

72 REM CAS3 * 

73 REM Ci# 

74 REM C2** 

75 REM C3***C0NTATTORI 

76 REM C4**»SUBR0UTINES 

77 REM C3** 

78 REM C6* 

79 REM TOT PUNTEGG. GIOCAT 

80 REM CTOT PUNTEGG COMPUT 

31 REM W G l. C2, C 3, C4. C5 

32 REM A* VALI DATE: "SsNn" 

33 REM DIF . NC-N 

84 REM T . NUMERO TURNI 

35 REM «e***************** 

86 REM ******COSTANTI ***** 

67 REM ******************* 

89 REM Z 1,2, 3. 4. 5 

90 REM •*•*«•»««*«««*•**** 

91 REM ««DIMENSIONAMENTO** 

92 REM A****************** 

93 OPTION BASE 1 
*4 DIM X(200) 

95 DIM Y ( 200 > 

96 REM 

97 REM »•*««««•«»•*«»*»** 

98 REM «INIZIALIZZAZIONE* 

99 REM ••««**«••»•**««««« 

100 REM 

105 LET C=0 
110 LET NC-0 
115 LET NA=0 
120 LET C6*0 
125 LET TOT =0 
130 LET CTOT-O 
132 REM 

180 CALL CHARt 130, “33-33CCCC3333CCCC" ) 

182 CALL COLORt13, 6, 8) 

185 ON WARNING NEXT 
190 RANDOMIZE 
195 CALL SCREENtIO) 

199 CALL CLEAR 

200 PRINT “••••*«**«*•»•*•*•»«••««•««•*•• 

203 PRINT "«««•«*•*•*»•**»•**••••«*«•*••• 

205 PRINT “t***********************»***" 

210 PRINT "a**************************** 

213 PRINT "v*************»*************" 

215 PRINT '•****************************» 

220 PRINT ••»»*»*******•******«*«*•**#*#'• 

225 PRINT '‘***»«******TAGL IO*********** " 

230 PRINT "«a**************************" 

233 PRINT "a***************************" 

235 PRINT "a**************************** 

240 PRINT '•*«*************************«•• 

24:3 PRINT "a*******************»*******" 

245 PRINT "••••**»*•*••••***•••*•**•«*«>• 

243 PRINT "*•*••••«**»««*••*••••«**••••" 

250 PRINT 

251 CALL DELAYC2» 

253 RESTORE 9500 
255 READ A, B 

257 IF A»—1 THEN 268 

259 DISPLAY AT(A,B)SIZE(l) " “ 

261 CALL SOUND(-120, 40000, 30.40000, 30. 330.30,-3. 1> 

265 GOTO 255 
268 CALL DELAY < 3> 

270 CALL SCREEN(8) 

_ 


Listato 1. Il programma BASIC. 
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Seguito listato 1. 


280 DISPLAY AT<10.7ILRA3E ALL "VUOI CONOSCERE " 

2 <: '0 DISPLAY AT(12. 3) "LE REGOLE DEL •TAGLICI*" 

300 DISPLAY AT ( 1 5, 9 ) " ( 

ACCEPI AT< 1*5, 16) DEEP '3IZE< 1 ) VALI DATE < "SsNn" ) A* 

320 IT A*=“3" OR A*="à" THEN GOSUB -''000 CALL SCREEN(8> 

322 DISPLAY AT <IO,3)ERASE ALL "QUANTI TURNI VUOI GIOCARE" 

324 DISPLAY AT ( 15-6 > " < DA 50 A 200)*'" 

ACCEPT AT ( 15. 22 > DEEP VAL I DA TE ( DIGIT > SI ZE ( - 3 ) T 
•:28 IF T 50 OR T. 200 OR I NT < T ) " T THEN 326 
3 38 CALL SCREE.N(8) 

33-' CALL CLEAR 

340 DISPLAY AT(I,3) "PLAYER TURN COMPUTER" 

345 IF T=C THEN 650 

"50 DISPLAY A7<2. 3) "SCORE ". C DISPLAY AT<2.18) "SCORE" 
360 DISPLAY AT(4 )SI 7E< 4) TOT DISPLAY AT ( 3. I * ) SI 2E ( 4 ) CTOT 
365 LrtLL HI. HAWC... ). 


370 DISPLAY AT('?, 5> "PLAYER COMPUTER" 

380 DISPLAY AT(10.5) "NUMEER NUMDER" 

385 DISPLAY AT ( 13» 7)31 ZE( 14 ) "*• *■“ 

387 CALL HCHAR< 19, 1, 130. 32) 

390 ACCEPT AT(13.7)DEEP VAL IDATE(DIGIT)SIZE<-1) N 
3-95 IF N : 1 OR N>5 OR INT(N) " N THEN 385 

400 DISPLAY AT(16» 17)DEEP "COMPUTER" DISPLAY AT(17, 17> "THINl INO" 

500 GOSUB 1000 
510 LE T C6=0 

520 DISPLAY AT(13,19)DEEP NC 
530 LET DIF*NC-N 

540 IF DIF=1 THEN TOT*TOT*N*NC CALL SCREEN(14> DISPLAY AT<21,l7> "TAGLIATO 1 
" CALL DELAY< 3) DISPLAY AT(21,1) "" GOTO 580 

550 IF DIF—i THEN CTOT=CTOT+NC+N CALL SCREEN(14) DISPLAY AT<21.5) "TAGLIAI 

0!" CALL DELAY(3) DISPLAY AT(2l.l> "" GOTO 580 

560 LET TOT«TOT*N 

570 LET CTOT-CTOT+NC 

580 CALL SCREÉN < 8) 

590 CALL DELAY(3) 

600 CALL HCHARU6. 1.32» 64) : GOTO 345 

650 REM ******************* 


655 REM ••MESSAGGI FINALI** 

660 REM ******************* 

663 CALL SCREENU2) 

665 DISPLAY AT(2,7)DEEP ERASE ALL "PUNTEGGIO FINALE" 

670 DISPLAY AT(5.4) "PLAYER COMPUTER" 

673 DISPLAY AT<6,5> TOT DISPLAY AT(6.19) CTOT 

675 IF CT0T3TOT THEN DISPLAY AT(i5,4) " EBBENESI’ SONO ANCORA IO 
TUTTI " 

680 IF CTOT*=TOT THEN DISPLAY AT(15» 9>: " PER QUESTA VOLI A TI E’ 

NE E‘ FINITA IN PARITÀ " 

685 IF CTOT 1T0T THEN DISPLAY AT<15. 4) " BRAVO"! SEI RIUSCITO A 
COMPUTER " 


ERMEUO DE 
ANDATA DE 
DATTERE UN 


690 CALL DELAY(20) 

700 DISPLAY AT(8.5)ERASE ALL "VOUI INIZIARE UNA" 

710 DISPLAY AT(10,5):"NUOVA PARTITA" 

720 DISPLAY AT(15,7>SIZE(6) "(S/N) 0 " 

730 ACCEPT A7 <15, 16)DEEP SIZE(1)VALIDATE(“SNsn"):A$ 

750 IF A*= M S” OR A*="s" THEN 90 

760 DISPLAY AT(16,9)ERASE ALL "ARRIVEDERCI " " 

850 STOP 

900 REM *»•*••*•«*•*»«»•»•* 

902 REM ********.********** 

903 REM ****SUBROUTINES**** 

905 REM ******************* 

>: >06 REM ******************* 

907 REM 

909 REM 

910 REM 

950 REM ******************* 

960 REM SUBROUTINE 1000 

970 REM (RICERCA STRATEGIA) 

980 REM ******************* 

990 REM 
999 REM 
1000 LET C-C+l 
1010 LET X < C)-N 
1013 LET CAS1 -I NT(RND*5)+1 
1015 LET CAS2-INT(RND*5)+1 

1017 IF L I 9 THEN 1070 

1018 REM 

>Olv F<F.M ****************** 

1020 REM STRATEGIA INIZIALE 

1022 REM ****************** 

1023 REM 

ivi-* 1) I--1 ! MtN Kc. IURN 

1026 IF C•-2 THEN IF CASI*1 AND XIC-DOl THEN NC=X(C l)-l RETURN ELSE NC~CAS2 
RETURN 

1030 IF C«3 THEN IF X(C- 1)»X(C-2)AND CASI' l THEN NA=X <C 1) GOTO 1080 FI SF NF-f 


AS2 : : RETURN 

1050 ON C-3 GOSUB 5500,5000»5000,5000, 5000»5000 

1060 GOTO 1080 

1070 GOSUB 2000 

1073 REM ****************** 

1075 REM STRATEGIA 
1077 REM ****************** 

1080 LET P*RND 

1100 IF NA=0 AND T-C013 THEN IF CTOT-TOTO-20 THEN NC=INT(RND*3)+3 RETURN 
1110 IF NA=0 AND T-C<=13 THEN IF CT0T-T0T>=20 THEN NC=INT(RND*3)+1 RETURN 
1120 IF NA=0 THEN NC»INT(RND*5)+1 RETURN 

1140 IF NA=1 AND CT0T-T0TC—20 THEN IF PC 70 THEN NC=5 RETURN ELSE NC=4 RE 
TURN 

1150 IF NA*1 AND CT0T-TQT>-20 AND P<. 75 THEN IF PC 40 THEN NC=5 . RETURN ELSE N 
C=*4 : RETURN 

1160 IF NA* 1 AND CT0T-T0T>=»20 THEN NC=3 RETURN 

1170 IF NA=1 THEN IF PC 60 THEN NC=5 : : RETURN ELSE NC-4 RETURN 

USO IF NA=2 AND CTGT-T0T<=-20 THEN IF PC 70 THEN NC=1 RETURN ELSE NOS RF 

TURN 


“Computer Thinking” e il computer 
inizia la sua ricerca ignorando natu¬ 
ralmente il numero appena inserito. 
Dapprima considera gli ultimi 5 nu¬ 
meri scelti e va a ricercare se prece¬ 
dentemente sia stato già giocato 
quello schema. Ogni qualvolta ne 
incontra uno identico inserisce in un 
contenitore (il vettore Y) il numero 
subito seguente lo schema. Se alla 
fine della ricerca non ha trovato 
nessuno schema da 5 numeri passa a 
considerare schemi da 4 poi da 3. da 
2 ed infine da 1 numero. Ammettia¬ 
mo, per semplicità, che abbia indivi¬ 
duato 10 schemi da 3 numeri e che i 
numeri seguenti questi schemi, ov¬ 
vero i numeri di preferenza in quelle 
particolari circostanze, siano stati 
due 2 e otto 5. A questo punto il 
computer sceglie dal contenitore un 
numero (NA = probabile numero 
avversario) fra i dieci prescelti. Bi¬ 
sogna però considerare che la casua¬ 
lità è fortemente condizionata dalle 
proporzioni in cui sono stati giocati 
gli schemi. In questo caso particola¬ 
re la scelta è ristretta ai numeri 2 e 5 
e la probabilità che esca il 5 è di 8 
parti su 10 (80% contro il 20% del 
2). Una volta estratto il numero dal 
contenitore si procede all’applica¬ 
zione della strategia. La strategia da 
me ideata fa uso di determinati pesi, 
espressi in percentuali, che sono as¬ 
segnati alle diverse scelte possibili 
(tabella 2). Le diverse scelte sono a 
loro volta determinate dal numero 
estratto dal contenitore. I criteri 
adottati per la “calibrazione” dei pe¬ 
si sono del tutto soggettivi, e sono 
quindi passibili di modifiche a se¬ 
conda delle diverse interpretazioni 
tattiche. In generale, per quanto ri¬ 
guarda il criterio da me seguito, 
posso dire di aver tenuto conto di 
tre fattori fondamentali: il guadagno 
nel punteggio, la “tagliabilità” del 
numero e le condizioni di gioco con¬ 
tingenti. Mi spiegherò meglio con 
un esempio. Se il numero previsto 
dal computer (NA) è un 2 sarebbe 
indifferente per lui giocare un 1 od 
un 5 perché entrambi procurerebbe¬ 
ro un più 3 nel conteggio del turno 
(infatti 1 + 2 = 5 - 2). Non sempre 
però il numero previsto è quello 
effettivamente scelto dall’avversa¬ 
rio. Nell’incertezza l’I è da preferir¬ 
si in quanto non può essere tagliato 
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Seguito listato 1 . 


1190 

IF NA=2 AND CT0T-T0T>=20 AND PC. 80 THEN IF PC. 50 THEN NOI RETURN 

ELSE N 

C=5 

RETURN 


1200 

IF NA=2 AND CT0T-T0T>=20 THEN N04 : RETURN 


1210 

IF NA=2 THEN IF PC 65 THEN NOI RETURN ELSE NC=5 : : RETURN 


1220 

IF NA=3 AND CTOT-TOTO-20 THEN IF PC. 80 THEN NC*2 : RETURN ELSE NC=5 

RE 

TURN 



1230 

IF NA-3 AND CTQT-TGT>=20 AND PC. 85 THEN IF PC. 55 THEN N02 RETURN 

ELSE N 

C—5 

: RETURN 


1240 

IF NA=3 AND CT0T-T0T>=20 THEN NC=3 : RETURN 


1250 

IF NA=3 THEN IF PC. 75 THEN NC=2 : : RETURN ELSE NC=5 : : RETURN 


1260 

IF NA=4 AND CT0T-T0T<=-20 THEN IF PC. 90 THEN NC=3 : RETURN ELSE NC=4 

RE 

TURN 



1270 

IF NA=4 AND CT0T-T0T>=20 THEN IF PC. SO THEN NC=3 RETURN ELSE NC=4 

RET 

URN 



12*30 

IF NA=4 THEN IF PC. 85 THEN NC=3 RETURN ELSE NC=4 RETURN 


1290 

IF NA=5 AND CT0T-T0T<=-20 THEN IF PC. 95 THEN NC-4 . : RETURN ELSE NC=5 

; RE 

TURN 



1300 

IF NA=5 AND CT0T-T0T>«20 THEN IF PC. 85 THEN NC=4 : : RETURN ELSE NC=5 

RET 

URN 



1310 

IF NA=5 THEN IF PC. 90 THEN NC=4 : RETURN ELSE NC=5 : . RETURN 


1893 

REM 


1900 

REM *■»**#**■»**#******# 


1905 

REM * SUBROUTINES * 


1910 

REM * RICERCA * 


1915 

REM * SCHEMI * 


1920 

REM *•*■***■**#■**#****■**•* 


1925 

REM 


1930 

REM 


1935 

REM 


1940 

REM *«***■»#■»*****#**** 


1945 

REM SUBROUTINE 2000 


1950 

REM SCHEMI A 5 NUM. 


1955 

REM ********************* 


2000 

FOR Cl=l TO C-8 !(C-1-3-4) 


2010 

LET W=C1 


2020 

LET 2=5 


2030 

IF X(C-l)=X(C1+4)AND X(C“2)=X(CI+3)AND X<C-3)=X(C1+2>AND X(C-4>=X(C1+1)AND 

XCC-* 

) = X < C1)THEN GOSUB 6000 


2040 

NEXT CI 


2050 

IF C6O0 THEN GOSUB 7000 ELSE GOSUB 3000 


2070 

RETURN 


2900 

REM 


2905 

REM 


2910 

REM 


2915 

REM *****#*##*##*#**** 


2920 

REM SUBROUTINE 3000 


2925 

REM SCHEMI A 4 NUM 


2930 

REM *****■*#*##■*#■****** 


3000 

FOR C2=i TO C-7 !(C-1-3-3) 


3010 

LET W=C2 


3020 

LET Z=4 


3030 

IF X ( L — 1 ) = X ( C2+3 ) AND X ( C-2 > = X ( C2+2 ) AND X ( C-3 ) =X ( C2+1 ) AND X ( C—4 ) =X ( f:9 ) THFN G 

OSUB 

6000 


3040 

NEXT C2 


3050 

IF C6O0 THEN GOSUB 7000 ELSE GOSUB 4000 


3060 

RETURN 


3900 

REM 


3905 

REM 


3910 

REM 


3915 



3920 

REM SUBROUTINE 4000 


3925 

REM SCHEMI A 3 NUM. 


3930 

REM *******#*#**###•»*» 


4000 

FOR C3-1 TO C-5 !<C-1-2-2) 


4010 

LET W=C3 


4020 

LET 2=3 


4030 

IF X <C-1)*X <C3+2)AND X<C-2)=X(C3+1>AND X<C-3)=X<C3)THEN GOSUB 6000 


4040 

NEXT C3 


4050 

IF C6O0 THEN GOSUB 7000 ELSE GOSUB 5000 


4060 

RETURN 


4900 

REM 


4905 

REM 


4910 

REM 


4915 



4920 

REM SUBROUTINE 5000 


4925 

REM SCHEMI A 2 NUM 


4930 



5000 

FOR C4=l TO C-3 1 (C-l-1-1> 


5010 

LET W=C4 


5020 

LET Z*2 


5030 

IF X < C-1> *X(C4+1> AND X(C-2)=X(C4)THEN GOSUB 6000 


5040 

NEXT C4 


5050 

IF C6O0 THEN GOSUB 7000 ELSE GOSUB 5500 


5060 

RETURN 


5400 

REM 


5410 

REM 


5420 

REM 


5430 

REM 


5440 



5450 

REM SUBROUTINE 5500 


5460 

REM SCHEMI A 1 NUM 


5470 



5500 

FOR C5=1 TO C-2 1 (C-l-l) 


5510 

LET W-C5 


5520 

LET Z=l 


5530 

IF X(C-1>=X(C5)THEN GOSUB 6000 


5540 

NEXT C5 


5550 

IF C6<>0 THEN GOSUB 7000 ELSE LET NA=0 


5560 

RETURN 


5900 

REM 


5905 

REM 


5910 

REM 


5915 

REM 



da nessun numero. C’è da aggiunge¬ 
re ancora che se veramente il nume¬ 
ro previsto non è giusto, in questo 
caso è diverso da 2, l’I non guada¬ 
gna più +3 punti, perché non sussi¬ 
ste più il taglio. L’ultima considera¬ 
zione da fare è relativa alle condi¬ 
zioni di gioco contingenti. Nel caso 
sia in vincita (+ 20) il computer al¬ 
largherà le sue possibili scelte, 
anche a 3 numeri, per rendere meno 
prevedibili le sue mosse e ammini¬ 
strare “saggiamente” il suo vantag¬ 
gio. Nel caso sia in perdita (- 20) 
opterà per una tattica il più fruttuo¬ 
sa possibile. 

Come si vede le considerazioni 
sono molteplici e tutte quante insie¬ 
me concorrono alla calibrazione dei 
pesi adoperati. Vi è infine l’ultima 
possibilità che la ricerca degli sche¬ 
mi non abbia avuto i frutti sperati 
(questo capita sempre nei primi tur¬ 
ni di gioco). In questo caso si proce¬ 
derà alla generazione di numeri 
casuali che saranno condizionati dal¬ 
le condizioni di gioco contingenti. 

Il programma passo, passo... 

1-89 Righe di commento. Qual¬ 
cuno obietterà che abbia ecceduto 
nei “commenti”, ma, come giusta¬ 
mente predica Personal Software (N. 
3, pag. 23, regola 1), un buon pro¬ 
grammatore deve sapersi autodocu- 
mentare. 

90-199 Qui si esplicano le con¬ 
suete procedure di dimensionamento 
e inizializzazione. Da notare L’OP- 
TION BASE 1 alla riga 93 che serve 
per inizializzare ad 1 l’indice di par¬ 
tenza dei vettori, che nel TI Exten- 
ded BASIC è di norma 0. C’è da 
osservare inoltre alla riga 185, l’i¬ 
struzione ON WARNING NEXT, 
altra specifica del TI Extended BA¬ 
SIC, che permette di controllare la 
segnalazione di WARNING in caso 
di errore nel dato di input, cosa che 
scombussolerebbe tutto il quadro di 
gioco. Il NEXT fa sì che venga igno¬ 
rato l’errore. 

200-850 Visualizzazione del qua¬ 
dro di gioco. Dapprima si richiede 
al giocatore se vuole conoscere le 
regole del gioco e in quanti turni de¬ 
sidera giocare (da 50 a 200 turni). 
Poi, dopo aver disegnato il quadro 
di gioco, attende il numero dell’av- 
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Seguito listato 1. 

5920 REM ****************** 

5925 REM SUBROUTI NE 6000 
5930 REM C ARICAMENTQEY<C6)3 
5935 REM ****************** 

6000 LET C6-C6+1 
6010 LET Y(C6)=X(W+Z) 

6020 RETURN 
6900 REM 
690*5 REM 
6910 REM 

6915 REM ****************** 

6920 REM SUBROUTINE 7000 
6925 REM SCELTA DI -NA- 
6930 REM ****************** 

7000 LET CAS3»1NT(RND«C6)+1 
7010 LET NA=Y < CA'33 ) 

7020 RETURN 
7030 REM 
7040 REM 

6900 REM ****************** 

S910 REM ******REGOLE****** 

3920 REM ****************** 

9000 CALL SCREEN(ll) 

9010 CALL CLEAR 

9020 FRI NT " L* regole del Tagli©:" 

9030 FRI NT 

9040 PRINT "Quest© è' un gioco strategi co. e consiste nel trvare la giusta stia 
tegia psicologi ca per confondere e sopraffa re 1 ' avversar i ©(Computer ) '* 

9050 PRINT "Si gioca in 500200 turni. A ogni turno dovete scegliere ur» numero! In 
taro da l a 5) e inserirlo nel computer;il" 

9060 PRINT "computer a sua volta ne per. sera' uno A questo punto si confronterà 
n n o i due numeri" 

9070 PRINT "Se la loro differenza sara' diversa da 1. allora ognuno sommerà il 
suo numero al proprio punteggio, se invece" 

9030 PRINT "la differenza sara' esattamente 1. allora il giocatore con il piu' 
basso dei numeri li sommerà - entrambi. mentre" 

9090 PRINT "l'altro verrà' -TAGLIATO- " 

9099 CALL KEYCO,K.S) 

9100 IF SOO THEN 9099 ELSE CALL CLEAR RETURN 

9500 DATA 5, 28. 6. 27. 6. 26, 7, 25. 8, 25, 8..24, 9, 23, 10, 22. 10, 21, 11, 20. 12, 20, 13. 19. 13, 13 
, 14, 17 

9510 DATA 14, 16, 15, 15, 15, 14. 14, 13, 13, 12. 12. li. 13, 10, 14, 10, 15, 9. 16, 8, 17. 7, 17. 6, 18 
, 5, 19, 4, -1, -1 

9900 REM ****************** 

9910 REM SUBROUTINE DELAY 
9920 REM ****************** 

10000 SUB DELAY(SEC) 

10010 FOR COUNT =1 TO 200*SEC 
10020 NEXT COUNT 
10030 SUBEND 
20000 END 


versano (N) e, solo ad inserimento 
avvenuto, provvederà a sua volta a 
“pensarne” uno (appare la scritta 
“COMPUTER THINKING”) e vi¬ 
sualizzarlo nella giusta posizione (ri¬ 
ghe 200-520). Si procede poi al con¬ 
teggio e alla eventuale segnalazione 
di un taglio (righe 530-600). Alla fi¬ 
ne dei turni stabiliti in precedenza, 
compariranno il punteggio finale e i 
soliti messaggi scherzosi di commia¬ 
to. Inoltre si darà l’opportunità di 
giocare una nuova partita (righe 
650-850). 

Dalla riga 500 si accede alle su¬ 
broutine per la ricerca degli schemi. 
La riga 510 provvede all’opportuno 
azzeramento del contatore della su¬ 
broutine 6000. Le istruzioni AC- 
CEPT-AT consentono di accettare 
dati da qualsiasi parte dello schermo 
e inoltre, cosa molto importante, 
controllano i dati in entrata, rifiu¬ 
tandoli se non sono conformi alle 
caratteristiche specificate nella VA- 
LIDATE. Le CALL DELAY si ri¬ 
feriscono al sottoprogramma DE¬ 
LAY (righe 10000-10030) e provoca¬ 
no delle pause lunghe tanti secondi, 
quanti specificati nell’argomento tra 
parentesi. 

Dalla riga 900 cominciano le su¬ 
broutine. 

1000 Ricerca strategica. Prima di 
tutto viene incrementato il contato¬ 
re dei turni (C) e viene inserito nel 
vettore X il numero scelto dal gioca¬ 
tore (N); poi sono generati due nu¬ 
meri casuali (CASI e CAS2) e, se 
sono stati giocati più di 9 turni, si 
salta la “strategia iniziale”, riservata 
appunto ai primi 9 turni che sono 
casisticamente più facili da control¬ 
lare. Dalla riga 1080 si effettua la 
ricerca strategica vera e propria. Per 
ottenere i pesi di cui sopra riferito 
ho provveduto alla generazione di 
numeri casuali. Per fare in modo, 
per esempio, che l’I avesse il 65% 
di probabilità di essere scelto nei 
confronti del 5 (35%) è stata suffi¬ 
ciente la seguente condizione logica: 

IF P < .65 THEN NC = 1 ELSE 
NC = 5 

dove P = RND. 

Quando invece si è trattato di 
“pesare” tre numeri allora si è dovu¬ 
to sdoppiare l’istruzione per non 
creare una riga troppo complessa. 













2000, 3000, 4000, 5000, 
5500 Qui si procede alla ricerca de¬ 
gli schemi numerici rispettivamente 
da 5, 4, 3, 2 e 1 numero. 

Ogni subroutine consta di un loop 
e di una condizione logica finale. 
AH’interno del loop vi sono tre 
istruzioni; la terza è una istruzione 
logica che controlla numero per nu¬ 
mero se lo schema è verificato; in 
tal caso richiama la subroutine 6000 
e individuato con le prime due istru¬ 
zioni il numero seguente lò schema 
lo si inserisce nel vettore Y. All’u¬ 
scita del loop, quando tutti gli sche¬ 
mi sono stati provati, viene verifica¬ 
to se il vettore Y sia stato riempito. 
Nel caso sia vuoto si passa alla su¬ 
broutine ricerca schemi successiva, 
altrimenti viene richiamata la su¬ 
broutine 7000. 

6000, 7000 Accumulazione e 
scelta di NA. La subroutine 6000 
viene richiamata ogni qualvolta è 
stato verificato uno schema ed è 
quindi necessario conservare il valo¬ 
re di NA nel vettore Y. La subrouti¬ 
ne 7000, una volta terminata la ri¬ 
cerca degli schemi, estrae casual¬ 
mente dal vettore Y un valore di 
NA. 

È importante ricordare che per 
far girare questo programma è 
necessario il modulo SSS TI Exten- 
ded BASIC senza il quale sarebbe 
stato forse impossibile redigere un 
programma di questo genere, non 
possedendo il TI BASIC normale la 
fondamentale istruzione logica IF- 
THEN-ELSE estesa. 


Conclusioni 

E stato entusiasmante accorgersi 
come il computer, dopo un avvio 
non troppo brillante, iniziava a “fiu¬ 
tare” i primi schemi numerici e ad 
operare i primi tagli decisivi. È ine¬ 
vitabile che ciò accada perché prima 
o poi più o meno tutti siamo portati 
inconsciamente a schematizzare le 
nostre azioni secondo una logica che 
non sempre siamo in grado di rileva¬ 
re a livello conscio. Il computer fa 
pressoché totale affidamento pro¬ 
prio su questa debolezza umana. 

Non è comunque questo uno di 
quei casi in cui si può parlare del 
computer come di un giocatore im¬ 


battibile, ma vi posso assicurare che 
è un avversario tenace, soprattutto 
se vi mettete in testa di tendergli 
qualche tranello. Con lui potrete in¬ 
trattenere delle interessanti partite. 

In definitiva mi sembra di poter 
dire di avere ottenuto un program¬ 
ma capace di giocare, per lo meno 
alla pari, con il suo avversario. Può 


senz’altro essere migliorato e so¬ 
prattutto modificato in molte parti 
con particolare riferimento alla stra¬ 
tegia di gioco che, a mio avviso, può 
essere “interpretata” in diversi mo¬ 
di. Invito quindi i lettori a dare la 
loro interpretazione e a sfidare, in 
una battaglia computer contro com¬ 
puter, il mio programma. ■ 


VARIABILI 

DESCRIZIONE 

X (Max. 200) 

Vettore principale (conserva i valori di N) 

Y (Max. 200) 

Vettore secondario (conserva i valori di NA) 

C 

Contatore vettoriale (X) 

NC 

Numero del computer 

NA 

Numero dell’avversario (probabile) 

CASI, CAS2, CAS3 

Numeri casuali 

P (RD) 

Numero casuale per generare i pesi 

CI, C2, C3, C4, C5, C6 

Contatori delle subroutine 

TOT 

Totale del giocatore 

CTOT 

Totale del computer 

T 

Numero dei turni 

W, Z, A$ 

Variabili di lavoro 

N 

Numero del giocatore 


Tabella 1. Variabili del programma. 


PROBABILE 

NUMERO 

AVVERSARIO 

NUMERO COMPUTER 


Normali 

1 

5 ( 60 %) - 4 ( 40 %) 

2 

1 ( 65 %) - 5 ( 35 %) 

3 

2 ( 75 %) - 5 ( 25 %) 

4 

3 ( 85 %) - 4 ( 15 %) 

5 

4 ( 90 %) - 5 ( 10 %) 


In perdita (-20) 

1 

5 ( 70 %) - 4 ( 30 %) 

2 

1 ( 70 %) - 5 ( 30 %) 

3 

2 ( 80 %) - 5 ( 20 %) 

4 

3 ( 90 %) - 4 ( 10 %) 

5 

4 ( 95 %) - 5 ( 5 %) 


In vincita (+20) 

1 

5 ( 40 %) - 4 ( 35 %) - 3 ( 25 %) 

2 

1 ( 50 %) - 5 ( 30 %) - 4 ( 20 %) 

3 

2 ( 55 %) - 5 ( 30 %) - 3 ( 15 %) 

4 

3 ( 80 %) - 4 ( 20 %) 

5 

4 ( 85 %) - 5 ( 15 %) 


Tabella 2. Pesi per la strategia di gioco, espressi in percentuali. Il programma 
sceglie il proprio numero (NC) in funzione delle condizioni di gioco (NORMA¬ 
LI, IN PERDITA, IN VINCITA) e sulla base del probabile numero dell’avver¬ 
sario (NA). 
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I SEGRET I DEI PERSONAL 


COMMODORE VIC 20 


RESTORE nn per il VIC 20 

di Alessandro Guida 


Il VIC 20 si è sempre dimostrato un piccolo prodigio, 
pur risentendo delia mancanza di alcune istruzioni BA¬ 
SIC tradizionali. Abbiamo già visto in Personal Softwa¬ 
re n. 7 come ottenere il PRINT AT. Questa volta 
implementeremo il comando RESTORE nn. Sarà 
un’ottima occasione per approfondire la conoscenza del 
sistema operativo. 

Sicuramente conoscerete bene le istruzioni DATA, 
READ e RESTORE. In particolare il RESTORE ri¬ 
posiziona il puntatore, che indica il prossimo dato da 
leggere, all’inizio del primo DATA. Ciò è sicuramente 
limitativo, infatti spesso non si ha nessun interesse a 
rileggere tutti i dati dall’inizio. Un esempio è l’aver 
ordinato alcune informazioni come nel listato 2. In 
questo caso sarebbe utile poter cominciare a leggere 
con l’istruzione READ dall’inizio di una linea qualsiasi 
(purché contenente una frase DATA). È proprio que¬ 
sta l’utilità del RESTORE nn, dove con nn indichiamo 
un numero di riga qualsiasi. 

La routine che aggiunge al VIC, in qualsiasi configu¬ 
razione, questo comando è riportata nel listato 1. L’uso 
è molto semplice: basta chiamare una volta la subrouti¬ 
ne che dopo può anche essere cancellata. A questo 
punto quando vogliamo servirci del RESTORE nn sarà 
sufficiente l’istruzione X=USR(nn). L’unica accortezza 
da usare nello scrivere programmi che incorporano 
questa routine è di non scrivere mai con delle POKE 
nelle locazioni $00, $01 e $02, perché queste sono uti¬ 
lizzate dalla istruzione USR(). 

Va notato, inoltre, che se il numero di linea nn im¬ 
postato non esiste viene considerata la prima linea se¬ 
guente, e che se la linea nn non contiene DATA si ha il 
messaggio “OUT OF DATA ERROR IN xx”, con xx 
uguale al numero della linea che conteneva il 
X=USR(nn). La variabile X può avere qualsiasi altro 
nome. 

La routine è costituita da poche righe in BASIC che 
servono a introdurre nei byte $00, $01, $02 i valori 
esatti e a caricare in memoria la subroutine in linguag¬ 
gio macchina che viene chiamata ogni volta si voglia 
ottenere il RESTORE nn. La parte in linguaggio mac¬ 
china è spiegata chiaramente in figura 2. 

Come anticipato il listato 2 è un programmino esem¬ 
pio (utile per fare ripetere la geografia ai vostri figli), 
in cui è usata questa routine. 



0400 20 F7 D7 20 13 

, 

0405 C6 R0 04 B1 5F 

, 

040R Fe 07 C9 83 F0 

. 

040F 09 CS D0 F5 A2 

, 

0414 0D 20 3A C4 Efi 

. 

0419 18 98 65 5F 85 


041E 41 R9 80 65 60 


0423 85 42 60 ER Efi 


Figura 1. Dump della routine descritta. 


. ,0400 JSR #D?F7 'Converte flo*tin9 Point iti intero 

,,0403 JSR #C613 'Ricerca, il numero di Ime* B*sic contenuto in #14,#15. 

.,0406 IDV ##04 -- 

.-0408 LDR <#3F),V ' 

.,040R BEO #0413 
.,0400 CUP ##83 
.,040E BEO #0419 
.,0410 INV 
.,0411 BHE #0408 
..0413 LDX «#0D 
.,0413 JSR #C43fì 
.,0418 N0P 
.,0419 CLC 
.,041R TVR 
.,041B RBC #SF 
.,041D STfi #41 
.,041F LDR ##00 
.,0421 RDC #60 
.,0423 STA #42 
.,0423 RTS 


Figura 2. Routine in linguaggio macchina disassemblata 
e commentata. 


1000 HB=PEEKC56>-1 : LB=P£EK<55> : POKE0,76 ’ P0KE1, LE ■ P0K.E2, HE 
1010 P0KE56, HE '■ P0KE52.HE : fi=HB*256+LB 
1020 RESTOSE 

1030 RERDN IFN=-1THENEND 
1040 POKER,N fi=R+1 GOTO1030 

1053 REM ******-********.*****'************ : (t******* 

1060 REM * L'ISTRUZIONE ■ 'RESTOSE NN' * 

1070 REM * SI OTTIENE CON IL C0MRND0 A=USR(NN> * 

1880 REM * SE Lfl LINER NON CONTIENE PERSI BfiTR * 

1030 REM * SI HA L'ERRORE OUT 0P DRTR ERROR' * 

1130 REM * SE INVECE IL NUMERO DI LINER CITATO * 

1110 REM * NON ESISTE RLLORfi VIENE CONSIDERATA * 

1128 REM * LA PRIMA LINER SEGUENTE * 

1138 REM mMHMMMWmMWMmìmMW********* 

1140 BRTR032,247,215,032,813,133,168,304,177,895 
1153 BRTR240.397,201.. 131,240,033,200,208,245,162 
1163 DRTH013,S32,058,196,234,824,152,101,895,133 
1178 DRTR865,169,000,101,096,133,066,096,234,234;-1 


Listato 1. Questa routine aggiunge al VIC 20 l’istruzio¬ 
ne RESTORE nn. 


'Cere* l'istruzione DRTR (#83) nell* line* in es*me 
' se l* trov* s*lt* * #0419 

'Se non h* trov*to l'istruzione DRTR s*lt* *11* routine di 
' tr*tt*mento de9li errori con il codice #0D(OUT 0F DRTR) 


'R99iorn* i Punt*tori DRTR (#41,#42) 
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BASIC e linguaggio macchina 

Il BASIC del VIC 20 dispone di due istruzioni per 
collegarsi con parti di programma scritte in linguaggio 
macchina: SYS(indirizzo) e USR(xx). 

La prima è senz’altro la più conosciuta, e per questo 
la tralasciamo. La seconda, invece, è raramente utiliz¬ 
zata, pur avendo l’innegabile vantaggio di poter tra¬ 
smettere direttamente dati numerici dal BASIC al lin¬ 
guaggio macchina e viceversa. La forma completa di 
questa istruzione è A=USR(xx). “xx” è il valore da 
trasmettere alla routine in linguaggio macchina, e può 
essere un numero o il nome di una variabile numerica. 
Al ritorno al BASIC la variabile A (può avere un nome 
qualsiasi) contiene il risultato dell’elaborazione. La pri¬ 
ma cosa importante da ricordare è che quando l’inter¬ 
prete BASIC incontra l’istruzione USR avvia l’esecu¬ 
zione della parte in linguaggio macchina partendo sem¬ 
pre dalla locazione $00. Per questo motivo i primi tre 
byte di memoria devono contenere sempre: 

$00 contiene: $4C (dee. 76) che corrisponde al¬ 
l’istruzione JMP di salto. 

$01 contiene: $LB byte meno significativo del¬ 
l’indirizzo di inizio della rou¬ 
tine in linguaggio macchina. 
$02 contiene: $HB byte più significativo. 

Va, anche, ricordato che all'atto del passaggio al lin¬ 
guaggio macchina il numero xx viene conservato nel 
registro FACI (memoria da $61 a $66) e che ritornan¬ 
do al BASIC viene attribuito alla variabile A il valore 
FACI in quel momento. 

Il FACI ( Floating Accumulator) è una zona di 
memoria utilizzata dall’interprete BASIC per tutti i cal¬ 
coli. In esso il numero è conservato in forma floating 
point (virgola mobile) nella seguente maniera: 

$61 = esponente 
$62 = MSB mantissa 
$63 = mantissa 
$64 - mantissa 
$65 = LSB mantissa 

$66 = segno ($FF = negativo; $00 = positivo). 

Obiettivamente utilizzare numeri in questo formato 
non è né immediato né semplice. Possiamo, però, 
ricorrere a delle routine del sistema operativo che con¬ 
sentono il trattamento dei numeri in floating point, e 
che sono visibili in tabella 1. 


deposita il risultato nel,FACI. 

$D7F7 Converte un numero in floating 

point in intero. Lo preleva dal 
FACI e deposita l’intero nei byte 
$14 e $15 (byte alto e basso). 

$DDDD Converte il numero in floating 

point nel FACI in una stringa 
pronta per essere stampata. La 
stringa è memorizzata a partire 
dalla locazione $0100 e termina 
con un byte uguale 0. 

Tabella 1. Routine del sistema operativo utilizzate per la 
conversione dei numeri in floating point. 


10 DIMft$<19) 

20 GOSIIE1060 REM ATTIVA RESTGRE H 
25 PRINT"I3"; 

30 FORI =01013 : A='JSR ( 2008+1 * 10 ) : REM RESTOSE (.Hi il 
40 REfiDfì* • Rr,IHTITflB<5)LcFT$(fl*< 13> ' 

5ó semi 

60 INPUT"UREOIONE"1R$ 

70 I FRtC 0"ORVfiL(R$)>260RRÌ>3“THE' iF'R IUT"ITT i 00T06G 
30 PRINT-T fi*USR<2000*VflL<R*)*10):REM REST0RE 
35 N=0 

30 REABA$<N > : IFftt<N>0"#"THENN=N+l ; 00T098 

160 FORI-iTON-1 : INPUT"PR0V. NREPRINT S 

118 R=0'FORH=2TQH-1 

120 IFR*=R*<H)7HEHfl*<H> = "*" : H=h' : R-l 

130 NEXTH 

148 IFR=0TKEN300 

150 FRINT" SPR3V.? “R#"r 

ISO NEXTI 

178 PRINT-'SSSERftVO; r 'PRIN”'‘.aiSCEGLI UN" ALTRA PECI OHE 
180 FORI=@TD3000:NEXT : G07u2:, 

300 PRINTTHW SBAGLIATO!!" 

310 PRINT"MD0VRRI RIPETERE MEGLICS-R REGIONE "At OI ' GùTjiSS 
1000 REM ROUTINE LISTATO 2 
12l'ì REM ATTIVAZIONE RESTOSE N 
2000 BRTAVAL B"AOSTA <ROSTA>4 

2010 ùSTALIGuRIA.-GENOVA, IMPERIA,SAVONA,LA SPEZIA,* 

2328 BATACALABRIA,CATANZARO,COSENZA,REGGIO CALABRIA * 

2330 REM AGGIUNGERE I HATA BELLE ALTRE REGIONI 
2048 REM HATA ' REO I OHE ' , - FROVINCIE ', + 

READY. 


Listato 2. Esempio di utilizzo della nuova istruzione 
RESTORE nn. 


Indirizzo 

Descrizione 

$D391 

Converte un numero intero in 
floating point. Preleva il numero 
intero dall’accumulatore (byte al¬ 
to) e dal registro Y (byte basso) e 


ERRATA CORRIGE 

Nel numero 8-9 abbiamo presentato l’articolo “Gestio¬ 
ne del cursore del VIC 20” a firma di Enrico Bossaglia 
anziché di Alessandro Guida. Ce ne scusiamo con gli 
interessati. 
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COMMODORE PET/CBM 


Un overlay più flessibile 

di Attilio Zannoni 

Nella rubrica del n. 7 sono stati spiegati esauriente¬ 
mente due tecniche utili per l’effettuazione dell’overlay 
tra programmi nel PET Commodore. 

Ritengo che quello consigliato sia un metodo utile 
quando due programmi si devono scambiare valori di 
variabili, ma ci sono numerosi casi in cui un tale scam¬ 
bio non è necessario o è possibile effettuarlo in altro 
modo, per esempio creando un file di dati temporaneo 
su disco. 

Si suggeriva di includere dei REM nei programmi 
per renderli di ugual lunghezza, ottenendo però un inu¬ 
tile spreco della memoria sia centrale che di massa. 
Anche con il secondo metodo consigliato (POKE op¬ 
portuna nelle locazioni 43, 35, 47) si ha spreco, in que¬ 
sto caso solo di memoria quella centrale, infatti per il 
gioco dei puntatori, l’area di memoria esistente tra la 
fine del programma e l’inizio della memoria dati non 
verrà utilizzata perché noi abbiamo forzato i puntatori 
all’inizio memoria dati al valore necessario al program¬ 
ma di maggiori dimensioni. 

Un metodo più comodo, che rende possibile collega- 
re tra loro programmi di dimensioni diverse anche in 
tempi successivi, senza doverli modificare, prevede l’u¬ 
so di due locazioni di memoria, uguali per le serie 
3000, 4000 e 8000, che contengono il puntatore alla 
locazione di memoria successiva a quella di fine pro¬ 
gramma BASIC. Tali locazioni sono la 201 e la 202, 
che contengono rispettivamente la parte bassa e quella 
alta di tale indirizzo. 

Basterà inserire come prima istruzione ai programmi 
che si richiamano in overlay: 

10 POKE 43, PEEK (202): POKE 42, PEEK (201): 

CLR 

Utilizzando questo sistema, se si interrompe l’esecu¬ 
zione di un programma e lo si modifica, le locazioni 
201 e 202 non vengono variate. Se lo si fa ripartire per 
controllare la modifica, l’istruzione precedentemente 
introdotta come prima, causerà il “taglio” della parte 
finale del programma, in misura proporzionale alla lun¬ 
ghezza di un’eventuale aggiunta, eliminando anche i 
caratteri di controllo di fine programma. Per evitare 
dei malfunzionamenti dovremo inserire la riga 10 solo 
quando i programmi sono corretti e, in caso di corre¬ 
zioni successive, richiamare direttamente il programma 
originale ed eventualmente eseguirlo facendo saltare la 
linea 10. 


SINCLAIR ZX81 - SPECTRUM 


Risparmiamo memoria 

di Bruno del Medico 

Queste note hanno come riferimento l’articolo 
Introduzione alla intelligenza artificiale che pote¬ 
te leggere in questo numero. 

Utilizzo della linea 23 nello Spectrum 

Nello ZX81 l’indirizzo 16418 contiene il numero di 
linee riservate al computer in basso nello schermo, ge¬ 
neralmente 2, permettendo di utilizzare solo 22 delle 24 
linee nominali. Volendo utilizzare anche le ultime due 
linee, si deve usare l’istruzione: 

POKE 16418, 0 

Per quello che concerne lo Spectrum, l’istruzione 
equivalente da usare per scrivere qualcosa nella linea 
23 è: 

PRINT # 1; AT 1, 0; “quello che vogliamo scrivere” 

Nel momento in cui, viene eseguito un input la scritta 
scompare, il sistema migliore per mantenerla sul video 
è di usare: PAUSE. 

Se si vuole cancellare la scritta prima di un eventuale 
input si scrive dopo il PAUSE: 

PRINT # 1; AT 1, 0; “tanti spazi quanti caratteri 
scritti” 

Se si vuole scrivere nella linea 22 si usa: 

PRINT # 1; AT 0, 0; “XXXX” 

è possibile ottenere uno scroll verso l’alto di ciò che è 
stampato alle linee 22 e 23 con il comando 

PRINT # 1; AT 2, 0; “XXXX” 

Il seguente programma evidenzia tale modo di ope¬ 
rare: 

10 FOR K = 0 TO 21 
20 PRINT “LINEA”, K 
30 NEXT K 
35 FORK = 0 TO 21 
40 PRINT # 1; AT K, 0; “O.K.” 

45 PAUSE 20 
50 NEXT K 
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Si può ottenere uno scroll immediato nella parte bas¬ 
sa con il comando: 

PRINT # 1; AT N + 2, 0; “ ” 

Sblocco dell’EDIT 

Con il sistema da 1 Kbyte, succede spesso di caricare 
programmi che riempiono quasi al limite la memoria. 
Nel qual caso l’EDIT non funziona, vale a dire che la 
linea non scende in basso ed occorre riscriverla per 
intero; a volte non si riesce neppure a riscriverla. L’in¬ 
conveniente si può ovviare battendo CLEAR e NEW- 
LINE: il computer si sblocca e l’EDIT riprende a fun¬ 
zionare. 

Risparmio di memoria con lo ZX81 (e Spectrum) 

Non è immediatamente ovvio che la linea: 

10 LET A = 25 + 37 

occupa molta più memoria di: 

10 LET A = VAL “25” + VAL “37” 

In effetti la prima linea occupa 31 byte e la seconda 
ne occupa 25, ma a volte sono questi pochi byte che 
decidono se un programma può o meno girare sul 
vostro Sinclair. La linea: 

10 LET A = VAL “25 + 37” 

consente un ulteriore risparmio ed occupa solo 22 byte, 
9 in meno rispetto ai 31 della prima linea esaminata. 

Se si considera che all’accensione del computer (1 
Kbyte) si dispone di 899 byte effettivamente utilizzabili 
(125 vengono usati dal computer) e se si pensa che la 
gestione dello schermo ne richiede una quantità 
comunque elevata, si può capire che la possibilità di 
risparmiare ben 9 byte in una sola linea assume un’im¬ 
portanza notevole. 

Dunque ecco alcuni consigli per risparmiare me¬ 
moria: 

a) Usate solo le prime linee in alto dello schermo e 
ricordate che ogni linea usata consuma 33 byte; se 
riempite lo schermo vi resteranno per il programma 
solo (899-793) = 106 byte. 

Nel programma MASTER MIND si può notare 
come con l’istruzione POKE 16418, 18 si utilizzano 
solo le prime sei linee dello schermo, e si eseguono 
degli scroll che hanno effetto solo dalla linea 5 in su. 
Quando le linee di programma vengono immagazzi¬ 
nate occupano byte sia nella memoria del program¬ 
ma sia delle variabili. 


In particolare nella memoria del programma: 

- ogni linea occupa 5 byte fissi; 

- ogni numero posto fuori dalle stringhe che non sia 
il numero di linea occupa 6 byte, più un byte per 
ogni cifra che lo compone; 

- qualsiasi altro carattere, segno di punteggiatura, 
istruzione, funzione, contenuto di stringa, occupa 1 
byte. 

Nella memoria delle variabili del programma: 

- ogni variabile numerica occupa 5 byte più 1 byte 
per ogni carattere nel suo nome; 

- ogni variabile di controllo dei FOR occupa 18 
byte; 

- ogni variabile stringa occupa 3 byte più 1 byte per 
ogni carattere nella stringa. 

Considerando quanto detto: 

b) Si utilizza la funzione VAL per indicare i numeri: 
“11” occupa 4 byte, 11 ne occupa 8. 

c) Si utilizzi se possibile sempre la stessa variabile di 
controllo dei cicli; per esempio, FOR K quando i 
cicli non sono nidificati. 

d) Si usi PI, SGN, ABS, NOT, ecc. Per esempio: 

A = 0 = 13 byte 

A = PI - PI = 11 byte 

Uso degli operatori logici 

Le linee: 

10 IF A=1 THEN PRINT “A=l” 

20 IF A=2 THEN PRINT “A=2” 

possono essere sostituite da: 

22 PRINT (“A=l” AND A=l) + (“A=2” AND 
A=2) 

Se A è uguale a 1, la prima espressione tra parentesi 
nella linea 22 è vera, la seconda è falsa: la prima verrà 
scritta, la seconda no. Quindi se A=1 la linea 22 va 
interpretata: 

22 PRINT “A=l” + “ ” 

viceversa nel caso opposto. Le linee 10 e 20 occupano 
complessivamente 56 byte, la linea 22 ne occupa 41: 15 
di meno. 

Analogamente le linee: 

10 IF H=0 THEN LET A = A+1152 
20 IF G=1 THEN LET A = A+360 

possono essere sostituite da: 

22 LET A = A + (1152 AND H=0) + (G=l AND 
360) 
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Se H=0 e G <> 1, avremo: 

LET A = A + 1152 + 0 
Se invece H=0 e G=l, si avrà: 

LET A = A + 1152 + 360 

Errori di logica con AND e OR 

Un errore di logica molto comune con AND e OR è: 

100 IF A = H AND B = Z OR B = W THEN 
GOTO 1000 

Il computer salta alla linea 1000 tutte le volte che: 


A=H e B=Z 
inoltre tutte le volte che: 

B=W 

anche se A è diverso da H. 

Per avere un comportamento corretto si deve scri¬ 
vere: 

100 IF A=H AND B=Z OR A=H AND B=W 
THEN GOTO 1000 

oppure 

100 IF A=H AND (B=Z OR B=W) THEN GOTO 
1000 



Per 'lavorare’ al meglio con il Pet e l’M20 

Paolo e Carlo Pascolo 

IL BASIC DEL PET E DELL'1*120 


Il personal computer rappresenta oggigiorno, 
oltre che un valido aiuto nel lavoro, anche 
un’irresistibile tentazione. Può capitare, così, che 
qualcuno si trovi a disporre di un Commodore o 
di un M 20 Olivetti senza conoscerne appieno 
il linguaggio e le possibilità. Questo volume 
vuol rappresentare proprio un prezioso 
supporto per chi debba, o voglia imparare 
programmare in Basic su questi strumenti 
di lavoro, gioco o studio: comandi, 
istruzioni, informazioni, consigli... fino a 
diventare davvero 'padroni' di due dei più 
diffusi Personal Computer. 

226 pagine. Lire 16.000 
Codice 336 D 


Per ordinare il volume 
utilizzare l’apposito tagliando 
inserito in fondo alla rivista 


GRUPPO EDITORIALI 
JACKSON 
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Ancora oggi c’è chi compera 
personal come foss ero 
mele, arance o ^ 


limoni 


tu, invece, oggi acquista 


ancora oggi! 
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MPF II ha una struttura molto com¬ 
patta e si avvale di soluzioni hard¬ 
ware originali ed espandibili. La più 
immediata è la tastiera esterna la 
cui connessione all’unità centrale è 
molto semplice. 

Inoltre una serie di opzionali (disk 
drive, stampanti termiche, stampan¬ 
ti su carta normale, sintetizzatore 
vocale, monitor di formati diversi e con diversi tipi di fosfori, interfaccia seriale RS232C, 
joy-stick, generatore di suoni ed altro ancora) con i quali trasformi il tuo home computer 
in un personal professionale. Vuoi potenziare il tuo sistema informativo? Non devi rico¬ 
minciare da capo. Sono tanti i connettori sui lati dell’MPF II che permettono di espanderlo 
fino a configurazioni estremamente potenti e già tutte attuabili. 

Scegli tu! 

Così hai la possibilità di divertirti, di studiare, di imparare il linguaggio Basic, sempre più 
importante. MPF II è accompagnato dai manuali d’uso e dal manuale di programmazione 
Basic tutti in lingua italiana. Un comodo ausilio di lavoro. 

Il software è ampio e completo nelle tante cassette, nei dischi, nelle cartucce che vengono 
fornite insieme ad MPF II. È inoltre possibile accedere alla vasta bibliografia di program¬ 
mi esistenti per la sua compatibilità di Basic...! MPF II, non scordiamolo, è dotato della ta¬ 
stiera incorporata e della scheda colore già installata. Tutto viene soddisfatto, i tuoi desi¬ 
deri, i tuoi giochi, le tue necessità, i tuoi lavori, la tua creatività. Pensa a qualcosa di 
grande per te, senza credere di sognare. MPF II è piccolo, leggero, ma ha grandi capacità 
di memoria e d’uso. Noi lo chiamiamo ‘Tinvestimento espandibile”. E tu? Sceglilo e sarai 
al centro dell’attenzione di tutti. 

Nella sua simpatica e morbida borsa da viaggio, insieme con tutti i componenti del siste¬ 
ma, viene sul lavoro, torna a casa, ti aiuta nello studio. Insomma MPF E è una scelta che 
ti dà soddisfazione, un sicuro investimento produttivo. 


1 

MPF II l’utilizzo dappertutto. È 
leggero, compatto, grande come 
una agenda. Con lui oggi muovo 
i primi passi nell’affascinante 
mondo dell’informatica. Sono si¬ 
curo che insieme a me crescerà 
e sarà capace di aiutarmi do¬ 
mani nel mio lavoro. Un sempli¬ 
ce video-gioco, un valido home 
computer, un indispensabile 
personal? Lo decido io! E questo 
mi soddisfa. 


BOM 

16K Bytes 


CPU 
R 6508 


Io oggi ho scelto MPF I 
E sono soddisfatto. 






^MICRO -PROFESSOR m 

1’investimento espandibile 


Caratteristiche 


L’unità centrale ha una tastiera al¬ 
fanumerica di 49 tasti multifunzio- 
ne con i quali c’è la possibilità di ge¬ 
nerare 153 codici ASCII. 

È possibile il completo controllo del 
cursore tramite 4 appositi tasti. Lo 
schermo visualizza 24 righe per 40 
colonne. Lavora con un set di carat¬ 
teri ASCII maiuscolo e caratteri gra¬ 
fici speciali (50) raggiungibili dalla 
tastiera tramite il CTRL-B. 

È disponibile una grafica contempo¬ 
ranea in 2 risoluzioni, high con 
280x192 punti e low con 40x48 pun¬ 
ti, a colori. È possibile miscelare te¬ 
sto e grafica. 

n microprocessore è il 6502. Sulla 
ROM è disponibile l’interprete Basic 
ed un monitor con disassembla¬ 
tore per programmare anche in linguaggio macchina. L’altoparlante è presente. 

L’unità centrale ha ben 64 K di memoria RAM dinamica e 16 K ROM. L’apposito slot porta 
all’esterno il BUS dati e indirizzi oltre ai segnali di controllo di tutto il computer. È possibi¬ 
le collegare interfacce e periferiche di tipo più svariato. L’unità centrale viene già fornita 
un interfaccia parallela per stampanti entro contenuta. 


BAM 

64K Bytes 


Interprete Basic 
più di 90 
istruzioni 


Scrivici per ulte¬ 
riori informazio¬ 
ni e per sapere 
dove puoi trova¬ 
re MPF II vicino 
a casa tua. 

PS 83 


Nome_ 

Cognome 

Indirizzo 


niniTCts 

UIUI ! LI \ 


cnmpuTER 


Ufficio Vendite 

Vìa Marmolada, 9/11 43058 SORBOLO (Parma) 
Tei. 0521/69635 Telex 531083 


[. Il mio primo ed unico computer. 


adrertm Reggio E. 





























CONVERSIONI 


Musica con TI99/4A 


Abbiamo ricevuto da Dario Paganini di Varese 
la conversione per TI99/4A del programma 
“Comporre musica con VAtari” pubblicato sul n. 
5. Il funzionamento è analogo a quello del pro¬ 
gramma originale. 

Le linee da 10 a 80 stabiliscono (come da tabella) le 
corrispondenze fra i tasti e la frequenza delle note, 
usando le istruzioni READ/DATA. 

I passi 1000/1110 sono relativi alla solita CALL 
KEY. Se non è stato premuto nessun tasto il puntatore 
S è 0 e viene riletta la tastiera. Se si è premuto un tasto 
corrispondente ad una nota, il programma pone il valo¬ 
re opportuno nella variabile TONE e (piccola modifica 
rispetto al programma Atari) riproduce quest’ultima al 
passo 1105 con la CALL SOUND. Se si è premuto un 
tasto richiedente un accordo il programma va alla rou¬ 
tine che lo forma. 

Ho aggiunto un confronto IF-THEN ai passi 2000/ 
2100/2200/2300 per evitare che il programma si fermas¬ 
se nel caso che il primo tasto premuto fosse un richia¬ 
mo ad una routine per la formazione di un accordo. In 
questo caso infatti essendo la variabile TONE = 0 la 
CALL SOUND non potrebbe essere eseguita in quan¬ 
to leggerebbe una frequenza 0 e il calcolatore darebbe 
il messaggio di errore “BAD VALUE IN...”. 

I valori di durata e volume della CALL SOUND 
possono essere facilmente variati secondo il gusto per¬ 
sonale. 


r - 

NOTA 

TASTO 

ASCII 

FREQUENZA 

LA 

N 

78 

440 

LA 

J 

74 

466 

SI 

M 

77 

494 

DO 

Z 

90 

262 

DO 

s 

83 

277 

RE 

X 

88 

294 

RE 

D 

68 

311 

MI 

C 

67 

330 

FA 

V 

86 

349 

FA 

G 

71 

370 

SOL 

B 

66 

392 

SOL 

H 

72 

415 

maggiore 

1 

49 

— 

settima 

2 

50 

— 

minore 

3 

51 

— 

min. 7" 

4 

52 

— 


Tabella 1. Corrispondenze fra tasti, codici ASCII, fre¬ 
quenze. 
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IO lii !'! REALTONE (12,2) 

20 LASTBYTE=0 
30 POR 1=1 TO 12 
40 READ A,E 
50 REALTONE (I,i)=A 

60 REALTONE (I,2)=B 

70 NEXT I 

SO DATA 781440,74,466,77, 494, 90, 262, 
83, 277, 88, 294, 68, 311, 67, 330, 
86, 349, 71,370,66,392,72,415 
1000 CALL KEY <0,K,S) 

1010 1F 8=0 THEN 1000 
1020 IF K=49 THEN 2000 

1030 IF K=50 THEN 2100 

1040 IF K=51 THEN 2200 

1050 IF K=52 THEN 2300 

1060 LASTBYTE=K 
1070 FOR 1=1 T0 12 

1080 IF KOREALTONE< 1,1) THEN 1100 
1090 TONE=REALT0NE(1,2) 

1100 NEXT I 

1105 CALL SOUND(300»TONE,5) 

1110 GOTO 1000 

2000 IF T0NE=0 THEN 1000 

2010 CALL SOUND(300,TONE,5,INT(TONE/ 

. 79394+. 5), 5, INT (TONE/. 66837+. 5), 5) 
2020 GOTO 1000 
2100 IF T0NE=0 THEN 1000 
2110 CALL SOUND(300,TONE,5,INT(TONE/ 

. 79394+. 5), 5, INT (TONE/. 5625+. 5), 5) 
2120 GOTO 1000 
2200 IF T0NE=0 THEN 1000 
2210 CALL SOUND(300,TONE, 5, INT(TONE/ 

. 34244+. 5), 5, INT (TONE/. 66837+. 5), 5) 
2220 GOTO 1000 
2300 IF T0NE=0 THEN 1000 
2310 CALL SOUND(300,TONE,5,INT(TONE/ 

. 84244+. 5), 5, INT (TONE/. 5625+. 5), 5) 
2320 GOTO 1000 
2400 END 






















CONVERSIONI 


Labirinto per Spectrum 


Il lettore Michele Bighignoli di Palermo ha con¬ 
vertito per lo ZX-Spectrum il programma per la 
generazione casuale di labirinti presentato sul 
numero 3 del Dicembre 1982. 


Il programma pubblicato disegna un labirinto privo 
di ingresso ed uscita e con stampato sul percorso il 
parametro casuale ‘j’ relativo alla direzione presa nel 
tracciare il labirinto. Sono dati necessari all’algoritmo e 
non possono essere omessi, ma possono essere resi in¬ 
visibili sostituendo alla linea 160 ‘INK 1’; con ‘INK 7’; 
e premettendo lo stesso comando al “5” della linea 140. 
I segmenti bianchi ed i neri sono tutti spazi con diverso 
colore di PAPER, non è quindi possibile trasferire il 
labirinto su carta con il comando COPY. 


100 DIH a SI) : LET a f li =2: cj^T £ 
{ 3) = -2 ; DIM b ( 4- !> : LET bl =2 : LE 
T b ( 4-1 = -2 

110 INK 0: PAPER 7: BORDER 7: O 
UER 0. CLS 

120 FOR f =e TO 20: FOR e=0 TO 3 
®: PRIMT RT f ,e ; PAPER 0;" ": ME 

XT e : NEXT f 

130 LET 3 =1. LET b=l 
1*0 print err a,b;"S" 

150 LET J = I NT (RNOÌ4.J +1: LET X = 


160 IF RTTR ta+atj),b+b(!=0 T 
HEN PRINT RT a +a f J ) , b + b i J .' ; INK 
l;j;RT a aa ( J i .-*2 , b + b t J J X2; " " : LE 

r a =a +a (j) : LET b=b+b(j): GO TO 
150 

170 LET j =.j* (J <4-J +1 : IF J <>X TH 
EN GO TO 160 

180 LET j =UfiL (SCREEN* (a,b}J. 
PRINT RT 3 , b : : IF j<S THEN LET 

3=3-3 Ij) ; LET b=b-b(J>.* GO TD 1 

50 


sposti fuori schermo; 

3) la linea 105 disattiva i controlli sulla macchina fino a 
quando non si è “in strada”; 

4) la pista è diversa ogni volta. Può essere resa sempre 
uguale inserendo una linea del tipo 5 RAND n con n 
che alternino il percorso. 


1 

SLOU 


10 

CLS 


IS 

PRINT "LRRG.7" 


16 

INPUT K 


17 

IF K < 3 OR K >30 THEN GOTO 15 

20 

LET Y=2 


25 

LET 5=0 


30 

LET T=0 


4-0 

LET 0=20 


50 

LET fi * = "OO" 


60 

PRINT RT 21,T;R* 


70 

PRINT RT 21,T+K;fi* 


80 

LET T=T+INT tRND*3)-1 


85 

IF T <0 THEN LET T=T + 1 


86 

IF T +K > 30 THEN LET T=T 

-1 

90 

PRINT RT 10,Y;" " 


100 

SCROLL 


102 

LET S=S+1 


105 

IF 3<10 THEN GOTO 130 


110 

IF INKEY * «= " 8 ” THEN LET 

Y=Y + 

120 

IF INKEY *.= "5" THEN LET 

Y=Y- 

*130 

PRINT RT 10, Y: 


150 

IF PEEK (PEEK 16398+256*PEE 

<. 16399 3 =COD£ fi* THEN GOTO 

190 

170 

PRINT ”0“ 


180 

GOTO 60 


190 

PRINT RT 

** 

200 

PRINT "KH.",INT (S/K3, 

"GG; " 

; INT 

CSX4-S3 


210 

PRUSE 4-E4- 


220 

RUN 


Project-Robot 


Rally per ZX 81 


Questo programma è la versione VIC 20 di Pro- 
ject-Robot, pubblicato sul n. 7. 


Sul numero 3 avevamo pubblicato il programma 
Rally per computer Atom. Marcello Morchio di 
Genova ne ha fatto una “sintesi”, più che una 
conversione, per ZX 81. 

Confrontando il programma originale ci si può ren¬ 
dere conto di come poche funzioni in più possono com¬ 
plicare la programmazione. 

Alcune osservazioni: 

1) è necessario stampare il doppio bordo “oo” perché 
se lo si stampa semplice (“o”) la macchina può sfug¬ 
gire in diagonale; 

2) le linee 85 e 86 controllano che la strada non si 


Funziona allo stesso modo del programma originale: 
non ho aggiunto né colori né suoni par adattarmi ai 
“3583 byte free” di base, ma chi ha un’espansione può 
rendere il programma più appariscente. 

Ecco le principali modifiche apportate: 

1) non è ammesso, nel BASIC VIC, scrivere “GOSUB 
variabile”, quindi le tre routine di Laser, Radar, 
Muovi vengono richiamate con GOSUB 500, GO¬ 
SUB 650, GOSUB 750 e le variabili omonime sono 
soppresse; 

2) il VIC riconosce solo le prime due lettere delle va¬ 
riabili. Quindi, le variabili sono state così cambiate: 
Display—»DF, Danni—»DN, Azioni-»AZ, 
Posx—>PX, Posy—>PY, Cont—>CT, Poslaser—»PL, 
Eco—»EC, Poseco—>PE. 
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Bfì.SE,« 

SOFTWARE HOUSE - Casella Postale 4 
13055 - Occhieppo Inferiore (VC) 

Tel. 015/592730 

SONO DISPONIBILI 

PER COMMODORE 64 

ALTO MEDIOEVO 

Una perfetta simulazione dell’economia medioeva¬ 
le. Rispetta le gerarchie feudali di vassallaggio e vi 
renderà esperti nell'arte di governare destreggian¬ 
dovi tra guerre - carestie - epidemie - maltempo e 
inondazioni strutturato a economia di mercato 
permette elaborate politiche fiscali e speculazioni 
commerciali. Da 1 a 9 feudatari il migliore dei quali 
diventerà Re. Corredato di istruzioni. 

Lire 30.000 dischetto Lire 25.000 cassetta 

ATOMO 

Gestione simulata di impianto nucleare per la pro¬ 
duzione di energia elettrica. Il pieno rispetto dei 
parametri reali rende il programma oltre che un 
gioco un modo per capire il funzionamento di un 
reattore nucleare. È la vostra condotta a determi¬ 
nare - rendimento - guasti ecc. 

Necessarie buone doti di intuito e abilità - sarete 
comunque valutati dal calcolatore a fine impiego. 
Non aspettatevi giudizi molto lusinghieri (almeno 
all'inizio]. 

Lire 30.000 dischetto Lire 25.000 cassetta 

TORRE DI HANOI + OTHELLO 

I - classici - finalmente anche per il Commodore 64. 

Lire 30.000 dischetto Lire 25.000 cassetta 

A disposizione per consulenze su 

Software Applicatico - Automazione di Processi 
Soluzione dei Vs. problemi su Commodore 64 
Tel. 015/592730 


in vendita anche presso 

TEOREMA - Via Losanna, 9 - Biella 


Spedire In busta chiusa a: 

BA.SE s.n.c. - Casella Postale 4 - 

13055 Occhieppo Inf. (VC) 







Ordino n° 

IH Disco 

□ Cassetta di Alto Medioevo 

Ordino n° 

PI Disco 

□ Cassetta di Atomo 

Ordino n° 

CI Disco 

□ Cassetta di Torre di Hanoi + Othello 


Per un totale di Lire_ 

Pagamento □ Allegato assegno non trasf. sped celere 
D Contro assegno + Lire 2.000 s.s. 


CONVERSIONI 


Sono rimaste inalterate le variabili K, R e gli array 

Z e Z$. 

Il programma lascia liberi, tolte le variabili, circa 250 
byte; c’è quindi un certo margine per sostituire le routi¬ 
ne di movimento dei robot con altre più lunghe. Que¬ 
ste potranno usare le variabili ZA, ZB, ...., ZM inizia- 
lizzate ma non usate dal programma principale. 

Per ulteriori istruzioni, vedere l’articolo originale. 


10 ZR-0 : ZB-0 ZC-0 ZD-0 ZE-0 ZF-0 ; ZG-0 ZH-0:ZI«0 ; Z>0 ZK-0 ZL-0 OU-0 : PRINT"T ; G 
OTO100 

50 F0RK-1T03 PRINT"ROBOT N."K; 

51 INPUTEt IFLEN<E<X1ORLEN(E*)>10THENPRINT"SERRORE 1 1 1 " 00TO51 

52 Zt<K)-E* NEXT F0RK-1T03 PRINT"rZ*(K) : Z<K,3)"PEEK(DF> NEXT 

70 PRI NT " riIClIBiaaDtDWlI<CP**«*#**i****«*Si******* *» PROJECT ROBOT «* t*«**«**f»N* 
*«**»*«** 

72 PRINT"IN GRRR" F0RK-1T03 PRINTZ*<K> : NEXT RETURN 

100 DlflZO*3> DIMZ*<3) NL-1 DF-7680N—220-1 S-22 E=-l N0=-21 S0-23SE-21 : N£--2 
3 

160 F0RK-1T03 Z(K,2)-N Z<K,3)-0 NEXT OOSUB30 

190 F0RK-1T03 ZOO 1)-DF*TNT<RND<1)*10*1>*INT<RND(1)410*1>*22 NEXT 
230 PRINT"«■»■” FORI-ITO 11 PRINT"! !" NEXT PRINT 

300 FORR-1T03 IFZ(R.3 >>3TH£N400 

310 POKEZ<R-1)«Z<R,3> DR-ZCR,2) DN*Z<R/3):flZ-3 0«Z<R, 1>-DF:PV-INTCO/22):PX-Q-PV* 
22 

350 ONRGOSUB7000,8000,9000 

355 Z(R,2)-DR 

360 NEXTR 

365 GOTO300 

400 IFZCR»3)-5THEN360 

410 Z(R/3)“5 : PRINT"!H!fl#"SPC(22!R+30)SPC<250)"!OUT 11 l^OU-OU-M'IFOU<2THEN360 

420 F0RR-1T03 : IFZ<R,3)-5THENNEXT 

430 FORI«ITO1000 NEXT PRINTVINTO "Z*<R> END 

500 REM LASER 

505 IFRZ-0THENRETURN 

510 CT-0 flZ-RZ-1 PL-Z(R,1)*DR 

540 IFPEEK < PL ) O32THEN570 

545 P0KEPL.46 FORI»1TO50 NEXT CT-CT+i PL-PL+DR P0KEPL-DR.32 OOTO540 

570 IFPEEK(PL)<>I02THEN585 

575 Z(R,4)-Z(R.4>-CT RETURN 

585 M-PEEK(PL) POKEPL> 32 IFMOZ(1,5)THEN610 

600 Z<1,3>-Z<1,3>*1 00TO575 

610 I FMOZ (2^5) THEN625 

615 Z<2/3)*Z(2»3>+1 G0TO375 

625 Z<3>3)»Z<3*3)+1 G0T0573 

650 REM RADAR 

653 IFR2-0THENRETURN 

660 CT=0:EC-0:RZ-AZ-1 PE*Z(R.1>*DR 

680 IFPEEK(PE)O32THEN700 

683 CT-CT+1PE-PE+DR OOTO680 

700 IFPEEK(PE >"102THENRETURN 

703 EC-CT RETURN 

750 REM MUOVI 

733 IFAZ-0THENRETURN 

760 ftZ-RZ-1 ^ IFPEEK<Z(R/1 )*DR)032THENRETURN 

770 POKEZ<R-1),32 Z(R,1)-Z(R,1>+BR:POKEZCR-1>,ZCR,3) Q-ZCR,1>-DF'PX-INT'Q/22)’PV 

-Q-22*PX 

800 RETURN 

5000 REM ROBOT : 1-RIOR 7000 2-RIGA 8000 3-RIQR 90 

00 

7000 REM SFONDO 
7003 IFPV-11THEN7200 

7010 DR=S•OOSUB730:OOSUB730 OOSUB730 RETURN 

7100 DR-0 ■ GOSUB730 : DR-N ■ OOSUB630 : IFECO0THENGOSUB300 

7160 DR=0 IFPX-10TFENDR-E 

7163 RETURN 

7200 IFDR-OTHEN7100 

7210 DR-E OOSUB730 : DR-N GOSUB630:1FECO0THENGOSUB300 
7260 DR-E IFPX-1THENDR-0 
7270 RETURN 

pfm fcipi nPOTnpc 


8003 IFZR-1THEN8063 
8010 U-INT(RND<1>*8) 

8023 IFW-1THENDR-N0 
8030 IFU-2THENDR-0 
8033 IFW-3THENDR-S0 
8040 IFU-4THENDR-S 
8043 IFW-3THENDR-SE 
8050 IFW-6THENDR-E 
8033 IFU-7THENDR-NE 
8060 IFW-0THENDR-N 

8063 GOSUB630 ZA»0 : IFECO0THENZR-1 :OOSUB300 

3083 IFEC-0THENGOSUB730 

8090 RETURN 

9000 REM ANGOLO 

9005 IFPX-1ANDPV»1THEN9040 

9010 DR-E 

9015 IFPXC l THENGOSUB750 
9020 IFPXO1THENGOSUB730 
9025 DR-N 

9030 IFPVO1THENGOSUB730 
9033 I FPVO 1THENGOSU8730 
9033 RETURN 

9040 DR-S : GOSUB630 : IFECO0THENGOSUB300 
9030 DR»0 GOSUB650 IFECO0THENOCSUB300 
9035 RETURN 


























ZXSpectrum i 6 / 48 rram. 

• 16 o 48 kbyte*' RAM. 

• grafica ad alta risoluzione 
(256x192 punti). 

• 8 colori da utilizzare con la più 
assoluta libertà per testo, 
sfondo, bordo, in campo diretto 
o inverso, con due gradi di 





La più grande catena di computer in Europa. 


luminosità, a luce fissa o 
lampeggiante. 

• Tastiera multifunzione con 
maiuscole, minuscole, simboli 
grafici, caratteri definibili 
dall’utente. 


• BASIC Sinclair esteso con 
funzioni a un tasto per 
programmare in fretta e senza 
errori. 


• Funzioni specifiche per la 
grafica e per la gestione di dati 
d’archivio. 


• Ampia disponibilità di 
programmi preregistrati su 
compact-cassette: giochi, 
passatempi, educazionali, 
matematici, gestionali. 

• Totale compatibilità con la 
stampante ZX. 

• Disponibilità immediata del 
volume ALLA SCOPERTA 
DELLO ZX SPECTRUM in 
italiano. 


• Prezzo eccezionale: 299.000 lire 
nella versione a 16 kbytes. 


Lo trovi anche nel tuo BIT SHOP PRIMAVERA 


AGRATE BRIANZA Via C Matteotti, 99 
ALBA Via Pa ruzza, 2 
ALESSANDRIA Via Savonarola. 13 
ANCONA Via De Gaspcri. 40 
AOSTA Av. Conscil Des Commis, 16 
BARI Via Capruzzi, 192 

BASSANO DEL GRAPPA Via Jacopo Da Ponte. 51 

BERGAMO V ia S. F. D’Assisi, 5 

BIELLA Via Italia, 50A 

BRESCIA Via B. Croce, 11/13/15 

BUSTO ARSIZIO Via Gavinana, 17 

CAGLIARI Via Zagabria, 47 

CALTANISSETTA Via R. Sommo, 10 

CAMPOBASSO Via Mons. Il Bologna. 10 

CATANIA Via Muscatello, 6 

CESANO MADERNO Via Ferrini, 6 

CESENA Via Fili Spazzoli. 239 

CINISELLO BALSAMO Vie Matteotti. 66 

COMO Via L. Sacco. 3 

COSENZA V,a Dei Mille, 86 

CREMA Via IV Novembre. 56/58 

CUNEO C.so Nizza, 16 

FAVRIA CANAVESE C.soC. Matteotti, 13 

FIRENZE Via G. Milanesi. 28/30 

FORLl P.zza Mclozzo, l 

GALLARATE Via A. Da Brescia, 2 

GENOVA Via Domenico Fiasella, 51/R 

GENOVA C.so Gastaldi, 77/R 

GENOVA-SESTRI Via Chiaravagna. 10/R 

GENOVA-SESTRI Via Ciro Menotti, 136/R 

IMPERIA Via Dclbccchi. 32 

LATINA Via E. Toti (Galleria Cìsj) 

LECCE V.le Marche. 21 


LECCO Via L. Da Vinci. 7 
LEGNANO C.so Garibaldi. 82 
LIVORNO Via'Paoli, 32 
LODI Vie Rimembranze, 36/B 
LUCCA Via S. Concordio. 160 
l.UGO (RA) Via Magnapassi. 26 
MACERATA Via Spalato, 126 
MANTOVA Via Cavour, 69 
MERANO Via S. Maria del Conforto, 22 
MESSINA Via Del Vespro. 71 
MESTRE P.zza Ferretto. 78 
MILANO Via G. Cantoni, 7 
MILANO Via E. Petrella, 6 
MILANO Via Altaguardia. 2 
MILANO P.zza Firenze, 4 
MILANO Vie Corsica, 14 
MILANO Vie Certosa, 91 
MILANO Galleria Manzoni, 40 
MIRANO-VENEZIA Via Gramsci, 40 
MODENA Via Fonteraso, 18 
MONZA Via Azzone Visconti, 39 
MORBEGNO Via Fabam, 31 
NAPOLI Via Luigia Santelicc. 7/A 
NAPOLI C.so Vittorio F.manuele, 54 
NAPOLI Via Luca Giordano, 40/42 
NOVARA Baluardo Q. Sella. 32 
NOVARA Via Perazzi. 23/B 
PADOVA Via Fistomba, 8 (Stanga) 
PADOVA Via Piovese, 37 
PALERMO Via Libertà, 191 
PARMA Via Imbrumi. 41 
PAVIA Via C Battisti. 4/A 
PERUGIA Via R. D'Andrcouo. 49/55 


PESCARA Via Tiburtina, 264 bis 
PESCARA Via Trieste. 73 
PIACENZA Via IV Novembre. 60 
PISA Via Emilia. 36 
PISA Via XXIV Maggio, 101 
PISTOIA Vie Adua, 350 
POMF.ZIA Via Roma. 39 
POTENZA Via G. Mazzini, 72 
POZZUOLI Via G B. Pergolesi, 13 
PRATO Via E. Boni. 76/78 
RECCO Via B. Assereto. 78 
RIMINI Via Bettola, 75 
ROMA P.zza San Dona Di Piave, 14 
ROMA V.le IV Venti, 152 
ROMA Via Cerreto Da Spoleto, 23 
ROMA Via Ponzio Cominio, 46 
ROMA Via Del Traforo, 136 
ROMA Via G. Villani. 24-26 
S. DONA DI PIAVE P.zza Rizzo, 61 
SASSUOLO P.zza Martiri Partigiani, 31 
SAVONA Via G. Scarpa. 13/R 
SENIGALLIA Via Maierini, 10 
SONDRIO Via N. Sauro. 28 
TERAMO Via Martiri Pennesi, 14 
TORINO C.so Grosseto, 209 
TORINO Via Tripoli. 179 
TORINO Via Nizza, 91 
TRENTO Via Sighele, 7/1 
TRIESTE Via Fabio Severo, 138 
TRIESTE Via Torrebianca, 18 
TRIESTE Via Madonna del Mare. 7 
UDINE Via Tavagnacco, 89/91 
VARESE Via Carrobbio. 13 


VENEZIA Cannaregio. 5898 
VERCELLI Via Dionisotu. 18 
VIAREGGIO Via A. Volta, 79 
VICENZA Via del Progresso, 7/9 
VIGEVANO C.so V. Emanuele, 82 
VOGHERA P.zza G. Carducci, Il 









CONTRIBUTI DEI LETTORI 


Rotazione bidirezionale sul video 
dello ZX81 


La risposta ai molti lettori che vogliono sapere come 
si può ottenere lo scorrimento laterale del video dello 
ZX81, ci è arrivata da Carlo Lagomarsini e Alberto 
Muzio di Arcola (La Spezia), che hanno raccolto la 
richiesta di Marcello Morchio pubblicata sul numero 5. 
Ispirandosi ad un articolo di Antonio Pierini apparso su 
un’altra rivista, hanno realizzato due routine in lin¬ 
guaggio macchina per ruotare con ricircolo, come di¬ 
rebbe chi ha studiato un po’ di Assembler, una finestra 
rettangolare. La cosa più interessante è che posizione e 
dimensione, da due caratteri, a tutto il video, sono 
definibili tramite un inizializzatore BASIC. 

Noi della Redazione abbiamo aggiunto un semplice 
caricatore, un dumper per verificare il contenuto della 
memoria e abbiamo messo tutto insieme in un unico 
programma, comprese le routine già caricate nelle 
REM iniziali... ma facciamo un po’ d’ordine: 
linea 1; linguaggio macchina per la rotazione verso sini¬ 
stra (BASIC dalla linea 9300), indirizzo di lancio 
16514, non è rilocabile, gli zeri in fondo sono indispen¬ 
sabili per avere gli indirizzi giusti nell’altra routine: de¬ 
vono essere esattamente 22; 

linea 2; linguaggio macchina per la rotazione verso de¬ 
stra (BASIC dalla linea 9000), indirizzo di lancio 
16573, non è rilocabile; 

linee 10-60; caricatore (opzionale), si lancia con RUN 
10. Per caricare le routine si può provare a scrivere 
direttamente le REM come appaiono nel listato oppure 
prepararle con un numero sufficiente di caratteri qual¬ 
siasi e far girare questo caricatore dando i numeri del 
CECK DUMP pubblicato. Se si usa il secondo metodo 
si faccia attenzione che la prima REM abbia (esatta¬ 
mente) 53 caratteri; 

linee 1000-1070; dumper (opzionale), lista le due routi¬ 
ne, si attiva con RUN 1000; 

linee 8000-8100; master che gestisce le routine in BA¬ 
SIC e in linguaggio macchina, deve essere sostituito dal 
programma utilizzatore; 

linee 9000-9230; inizializzatore della seconda routine, 
una volta usato può essere cancellato; 
linee 9300-9410; inizializzatore della prima routine, una 
volta usato può essere cancellato. 

Non ci dilunghiamo in spiegazioni sul linguaggio 
macchina, ma pubblichiamo i listati Assembler delle 
routine e il “programmone” BASIC, sezionabile secon¬ 
do le esigenze individuali. Provate e buon diverti¬ 
mento... 


1234.86789© 1234567890 1234507390 i.2 
lÌ3456789012345e78901234 56f 890 0.2 

SCEGLI LR FUNZIONE: 23456789012 
12345678901234567890 1234567890 la 

1) DEFINIZIONE FINESTRA <<< 012 

2) DEFINIZIONE FINESTRA >>> 012 

3) SCORRIMENTO <<< 123456789012 

4) SCORRIMENTO >>> 123456789012 

12345676901234567890123456789012 
12345678901234567890123456789012 
12345678901234567890123456789012 
12345678901234567890123456789012 
123456-78901234567890123456789012 
12345678901234567890123456789012 
12345678901234567890123456789012 
12345678901234567890123456769012 
12345578901234567890123456789012 
12345678901234567890123456789012 
12345678901234567890123456789012 
12345678901234567890123456789012 
12345678901234567890123456789012 
12345678901234567890123456789012 


Figura 1. Copy del quadro iniziale. Lo spostamento dei 
numeri permette di evidenziare le finestre definite. 


CECK DUMP 




15514 

ZZA 

42 

16530 

ss 

35 

16515 

= 

12 

16581 

ss 

84 

16516 

SS 

64 

16582 

s 

93 

16517 

= 

1 

16583 

ss 

6 

16518 

ss 

213 

16584 

ss 

31 

16519 

ss 

2 

16585 

ss 

126 

15520 

ss 

9 

15586 

ss 

35 

16521 

ss 

22 

15587 

s 

73 

16522 

ss 

22 

16588 

= 

119 

16523 

ss 

229 

16589 

ss 

121 

16524 

= 

6 

16590 

ss 

16 

16525 

ss 

31 

16591 

ss 

250 

16526 

ss 

126 

16592 

ss 

13 

16527 

ss 

43 

16593 

ss 

205 

16528 

ss 

78 

16594 

ss 

223 

16529 

s : 

119 

15595 

= 

64 

16530 

ss 

121 

16596 

ss 

62 

16531 

= 

16 

16597 

ss 

22 

16632 

a 

250 

16598 

ss 

61 

16533 

ss 

6 

16599 

ss 

40 

16534 

ss 

2 

16600 

ss 

5 

16535 

ss 

43 

16601 

ss 

50 

16536 

SI 

16 

16602 

ss 

213 

16537 

ss 

253 

16603 

s 

64 

16538 

ss 

193 

16604 

— 

24 

16539 

s 

2 

16605 

— 

233 

16540 

ss. 

21 

16606 

ss 

62 

16541 

ss 

194 

16607 

s 

22 

16542 

ss 

139 

16608 

a 

50 

16543 

2 

64 

16609 

ss 

213 

16544 

= 

201 

16610 

s 

64 




16611 

s 

201 

16573 

SS 

+2 

16612 

s 

6 

16574 

ss 

12 

16613 

ss 

1 

16575 

2. 

64 

16614 

ss 

35 

16576 

= 

17 

16615 

s 

16 

16577 

s 

0 

16616 

s 

253 

16578 

ss 

0 

16617 

= 

201 


Figura 2. Dump delle routine già inizializzate per lo 
scorrimento di tutto il video. Se avete battuto anche il 
dumper (ed avete la stampante collegata) si ottiene con 
RUN 1000. 
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Il tuo Spectrum è preziosissimo difendilo con la "SUPER GARANZIA" 

La Rebit Computer, distributore per l'Italia dei prodotti SINCLAIR, ha messo a punto la nuova 
straordinaria 



Apri la scatola del tuo SPECTRUM acquistato presso un Rivenditore Autorizzato e ci trovi 
anche un libretto: ti accompagnerà nei tuoi futuri acquisti, dandoti l'occasione per risparmiare 
oltre 100.000 lire. Ti darà la Garanzia di una perfetta assistenza, e avrai la certezza del valore 
del tuo autentico SPECTRUM. Il libretto della "super garanzia" contiene le modalità per 
l'iscrizione al SINCLUB, la federazione di 
tutti i Sinclair Club Italiani. Inoltre il Coupon 
sconto per abbonarsi a "SPERIMENTARE" 
il mensile di elettronica che pubblica il 
bollettino Sinclub: idee, programmi, notizie, 
vita associativa. ■ > 

La tessera Software ti da diritto ad uno 
sconto sull'acquisto dei programmi. 

Infine nel libretto "super garanzia" 
troverai la possibilità di acquistare la 
stampante ZX PRINTER SINCLAIR 
ad un prezzo eccezionale. 

PER QUESTO UNO SPECTRUM 
SENZA LA "SUPER GARANZIA" 

E'SOLO UN MEZZO 

Spectrum 







REBIT 

COMPUTER 


DIVISION ÓF G.B.C. 



in 

Spectrum 

molto di più di una garanzia!' 











CONTRIBUTI DEI LETTORI 


1 REM ECRND* 5TR4 - FAST .'C' 

IF «“•Fi CLEfiR AT '+TRB BRNDTAN 
d000000000000008000000 

£ REM EERND; ; 77?À? IF >LN 5 
_OU RNDY-XCfiMSTR$ RNDx NEW Y-MST 
Rt RNDTAN J - 7 ( CLEAR TRN 0000000 
3a000g0eega00ggeegggag<aeg ggee 
3 ij'OT O 3000 

10 REM CARICATORE 

11 FAST 

12 LET 6=16514 

13 LET E =16544- 
14- GQSJUB £0 

15 LET* 6=16573 

16 LET E = 16617 

17 GOSUB £0 
16 5T0P 

£0 FOR A = B TO E 
£5 PRINT A; " = 

30 INPUT D 
35 PRINT D 
4-0 POKE A, D 
50 NEXT R 
60 RETURN 

1000 REM DUMPER 

1001 FAST 
1004- LPRINT 

1005 LPRINT "CECK DUMP" 

1006 LPRINT 

1010 FOR 1 = 16514- TO 1654-4- 
1020 LPRINT I;" = ”;PEEK I 

1030 NEXT I 
1035 LPRINT 

104-0 FOR 1=16573 TO 16617 
10S0 LPRINT I; " = ** ; PEEK 1 

1060 NEXT I 
1070 STOP 

3000 REM MASTER SCORRIMENTO 

3001 5LOU 
•3005 CLS 

3010 FOR 1=1 TO 22 

!Ì34567l25l^ 2345&7S9 ° 1234567890 

3012 NEXT I 
6016 PRINT RT 1,0 

3020 PRINT *■ SCEGLI LA FUNZIONE. 


3025 

PRINT 


3030 

PRINT " 

1) 

STRA 

< < < " 

3035 

PRINT ■■ 

£ ) 

STRA 

> > > " 

304-0 

PRINT " 

3) 

304-5 

print *■ 

4) 


DEFINIZIONE FINE 
DEFINIZIONE FINE 
SCORRIMENTO <<< 
SCORRIMENTO > > > 


3050 INPUT N 

3060 IF N=1 THEN GOSUB 9300 
3070 IF N=2 THEN GOSUB 9000 
3030 IF N =3 THEN RAND USR 16514 
3090 IF N=4- THEN RRND USR 16573 
3095 IF N =3 OR N=4 THEN GOTO 805 
0 

3100 GOTO 8000 

9000 REM DEFINIZIONE FINESTRR > > > 
9010 CLS 

9050 PRINT "SCRIUI LE COORDINATE 
DEL QUADRA-TINO IN ALTO A SINIS 


TRA; • 

9055 

9056 
9060 
9065 
9056 

* 

PRINT 

PRINT "SCRIUI X:" 

INPUT XI 

IF X1>21 OR Xl<© THEN 

GOTO 

9070 

PRINT 


9071 

PRINT “SCRIUI Y: ’* 


9073 

INPUT Y1 


9075 

9071 

IF Y1> 30 OR Y1< 0 THEN 

GOTO 

9080 

LET B=Y1+X1*33 


9090 

LET B2=INT (B/256) 


9100 

LET B1=B-B2*256 


9110 

POKE 16577,B1 


9128 

POKE 16578,B2 


9125 

CLS 


9130 

PRINT AT 0,0;"ALTEZZA 

DELLA 

FINESTRA ?" 

9140 

INPUT X 


9145 

CLS 


9150 

IF X1+X > 22 THEN GOTO 9130 

9155 

IF X<1 THEN GOTO 9130 


9160 

PRINT AT 0,0:"LARGHEZZA DEL 

LA FINESTRA 7” 


9170 

INPUT Y 


9130 

IE Y +Y1 > 32 THEN GOTO 91-70 

9135 

IF Y <2 THEN GOTO 9160 


9190 

POKE 16584,Y-l 


9200 

POKE 16597,X 


9210 

POKE 16607,X 


9220 

POKE 16613,32-PEEK 16584 

9230 

CLS 


9240 

RETURN 


9300 

REM DEFINIZIONE FINESTRH<<< 

9305 

CLS 


9310 

PRINT "SCRIUI LE COORDINATE 

DEL 

RA : " 
9315 

QUADRA-TINO IN BASSO F 

DEST 

PRINT 


4 C 

S \J AU 

PRINT "SCRIUI X: " 


9320 

INPUT XI 


9325 

9316 

IF X1>21 OR X1<0 THEN 

GOTO 

3330 

PRINT 


3331 

PRINT "SCRIUI Y ;" 


3332 

INPUT VI 


9335 

9331 

IF Y1>31 OR Y1<1 THEN 

GOTO 

9340 

CLS 


9-345 

LET B=l+Yl+Xi*33 


9350 

POKE 16518,B—INT (B/256)*25 

9355 

POKE 16519,INT (Bx256) 


9360 

PRINT AT 0,0;"ALTEZZA 

DELLA 

FINESTRA 7" 


9365 

INPUT X 


9370 

IF X >22 OR X<1 OR X>Xltl TH 

EN GOTO 9365 


3375 

CLS 


9380 

POKE 16522,X 


9385 

PRINT AT 0,0;"LARGHEZZA DEL 

LA FINESTRA 7" 


9390 

INPUT Y 


9395 

IF Y >32 OR Y <2 OR Y>Y1 + 1 TH 

EN GOTO 9390 


9396 

POKE 16525,Y-l 


9400 

POKE 16534,34-Y 


9410 

CLS 


9420 

RETURN 
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CONTRIBUTI DEI LETTORI 


Locaz. 

Assembler 

HEX 

DEC 

Note 

16514 

LD HL (16396) 

2A, OC, 40 

42, 12, 64 


16517 

LD, BC, nn, nn 

01, nn nn 

1, nn, nn 

spiazzamento 
ultimo byte 

16520 

ADD HL. BC 

09 

9 


16521 

LD D, n 

16, n 

22, n 

n. di righe 

16523 

PUSH HL 

E5 

229 


16524 

LD B, n 

06, n 

6, n 

larghezza - 1 

16526 

LD A, (HL) 

7E 

126 


16527 

DEC HL 

2B 

43 


16528 

LD C, (HL) 

4E 

78 


16529 

LD (HL), A 

77 

119 


16530 

LD A, C 

79 

121 


16531 

DJ NZ. -6 

10, FA 

16, 250 


16533 

LD B, n 

06, n 

6, n 

3A - larghezza 

16535 

DEC HL 

2B 

43 


16536 

DJ NZ, -03 

10, FD 

16, 253 


16538 

POP BC 

CI 

193 


16539 

LD (BC), A 

02 

2 


16540 

DEC D 

15 

21 


16541 

JP NZ, (16523) 

C2, 8B, 40 

194, 139, 64 


16544 

RET 

C9 

201 



Tabella 1. Rotazione verso sinistra. 


[Tabella 2. Rotazione verso destra. 


Locaz. 

Assembler 

HEX 

DEC 

Note 

16573 

LD HL, (16396) 

2A, OC, 40 

42, 12, 64 


16576 

LD DE, nn 

23, nn, nn 

17, nn, nn 

spiazzamento 
primo byte 

16579 

ADD HL, DE 

19 

25 


16580 

INC HL 

23 

35 


16581 

LD D, H 

54 

84 

DE <-HL 

16582 

LD E, L 

5D 

93 


16583 

LD B, n 

06, n 

6, n 

larghezza -1 

16585 

LD A, (HL) 

7E 

126 


16586 

INC HL 

23 

35 

loop di riga 

16587 

LD C, (HL) 

4E 

78 


16588 

LD (HL), A 

77 

119 


16589 

LD A, C 

79 

121 


16590 

DJ NZ, -6 t 

10, FA 

16, 250 


16592 

LD (DE), A 

12 

18 


16593 

CALL 16612 

CD, E4, 40 

205, 228, 64 


16596 

LD A, n 

3E, n 

62, n 

numero linee 

16598 

DECA 

3D 

61 

cont. righe 

16599 

JR Z, 5 i 
(16606) 

28, 05 

40, 5 



Seguito tabella 2. 

16601 

LD (16597), A 

32, 15, 40 

50, 213, 64 

decrementa 
il contatore 
di riga 

16604 

JR -26 | 
(16580) 

18, E6 

24, 230 


16606 

LD A, n 

3E, n 

62, n 

n. linee 

16608 

LD (16597), A 

32, 15, 40 

50, 213, 64 

resetta il cont 

16611 

RET. (BASIC) 

C9 

201 


16612 

LD B, n 

06, n 

6, n 

33 - larghezza 

16614 

INC HL 

23 

35 

loop di riga 

16615 

DJ NZ -3 t 

22, FD 

16, 253 


16617 

RET (16596) 

C9 

201 



Ogni settimana l’elettronica, l’informatica, 
l'elettrotecnica in un unico fascicolo 


\ 


Enciclopedia di Elettronica e Informatica 
Oggi in edicola... domani nella vostra biblioteca 


Enciclopedia di 
Elettronica e Informatica 
50 fascicoli settimanali 


• 12 pagine di elettronica digitale 
e microprocessori 

• 16 pagine di informatica 
(oppure elettronica 

di base e comunicazioni) 

• 1 scheda (2 pagine) 
di elettrotecnica 

per ottenere in meno di un anno 

• 7 grandi volumi 

• 1400 pagine complessive 

• 1 volume schede di elettrotecnica 
L'opera è arricchita 

da circa 700 foto 
e 2200 illustrazioni a colori. 


In collaborazione 
con il Learning Center 

Texas Instruments 




GRUPPO 

«MTORIAU 

JACKSON 



77 



















































































CONTRIBUTI DEI LETTORI 


Operatori logici per TI99/4A 

Il signor Giuseppe Devoto di Ferrara ci manda 
questa nota su un metodo da lui escogitato. 

Si tratta di un metodo per sopperire alla mancanza 
degli operatori logici che non sono presenti nel linguag¬ 
gio base del calcolatore. 

Il metodo che ho usato, non interviene direttamente 
sul linguaggio con procedure hardware, ma si basa su 
due proprietà: 

1) il computer associa alle espressioni relazionali i va¬ 
lori numerici 0 e -1, rispettivamente, a seconda che 
siano “false” o “vere”; 

2) gli statement IF AoO THEN ... e IF A THEN 
vengono considerati identici. 

Vediamo come, sfruttando queste due proprietà, si 
possano realizzare dei surrogati degli operatori logici 
fondamentali, e cioè: And, Or e Not. 

Iniziamo con l’operatore And, definito secondo la 
figura 1. 

Il metodo che io utilizzo consiste nello scrivere, ad 
esempio, IF (A>B) * (B<C) THEN... che risulta 
equivalente a IF A>B AND B<C THEN... 

Infatti: l’enunciato IF... THEN... esegue il salto con¬ 
dizionato alla riga indicata soltanto se l’espressione 
(A>B) * (C<D) fornisce un risultato diverso da zero, 
una volta che alle espressioni relazionali si sia sostituito 
il valore numerico corrispondente. 

Se entrambe le relazioni sono “vere”, il computer 
associa il valore numerico -la ciascuna di esse e il 
risultato complessivo è 1. 

Se, invece, uha delle due è falsa, il computer vi asso¬ 
cia il valore 0 e il risultato complessivo è 0. 

Nel primo caso il salto condizionato viene eseguito, 
nel secondo no. 

Questo è esattamente il funzionamento richiesto per 
l’operatore logico And. 

Si noti che non c’è alcun limite al numero di espres¬ 
sioni relazionali che l’operatore può legare; si può 
infatti scrivere: IF (A>B) * (B<C) * ... * (D = F) 
THEN... 

Anche in questo caso il salto condizionato viene ese¬ 
guito solo se sono vere tutte le espressioni indicate. 

Per l’operatore Or, definito secondo la figura 2, si 
procede seguendo lo stesso principio. 

Lo statement: 

IF (A>B) + (C<D) THEN... 

sostituisce: 

IF A>B OR C<D THEN... 



Figura 1. Operatore And. 



Figura 2. Operatore Or. 



Figura 3. Operatore Nand. 

Infatti, esattamente come prima, se le espressioni re¬ 
lazionali sono entrambe false, ad esse viene associato il 
valore 0 ed è pure 0 il valore della loro somma. In 
queste condizioni il salto condizionato non viene ese¬ 
guito. 

Se, viceversa, almeno una delle espressioni relazio¬ 
nali è vera, il computer vi associa il valore -1 e la 
somma risulta diversa da zero. In questo caso il salto 
condizionato viene eseguito. 

Anche in questo caso non esiste alcun limite al nu¬ 
mero di espressioni relazionali che possono venire lega¬ 
te da un operatore. 

Per quanto riguarda l’operatore Not, il discorso è 
lievemente più delicato. Cercherò di chiarire con un 
esempio i problemi che si presentano. 

Supponiamo di voler realizzare l’operatore logico 
Nand, definito mediante la figura 3. Ricordiamo che un 
Nand viene anche definito come un And seguito da un 
Not. 

Basterà allora scrivere IF ((A>B) * (B<C) -1) 
THEN... 

Infatti: se A>B e B<C sono entrambe vere, si ha 
((A>B) * (B<C) -1) = (-1); * (-1) -1 = 1-1 = Oe 
il salto condizionato non viene eseguito. 

In ogni altro caso si ha 0 - 1 = -1 e il salto viene 
eseguito. Si vede che il comportamento complessivo è 
quello richiesto dall’operatore Nand. 
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CON TR IBUT I DEI LETTORI 


Il problema è questo: (A>B) * (B<C) vale 1, se 
entrambe le espressioni relazionali sono vere, perché è 
il prodotto di un numero pari di espressioni relazionali 
vere, e cioè di un numero pari di -1. 

Si capisce come il risultato sarebbe -1 se il numero 
delle espressioni relazionali fosse dispari. 

In questo caso, al prodotto di un numero dispari di 
espressioni relazionali, non si deve sottrarre, ma bensì 
aggiungere 1. Quindi, se si vuole negare un And, si 
deve aggiungere al prodotto il numero 1, se le espres¬ 
sioni relazionali sono in numero dispari, mentre si deve 
sottrarre 1 se le espressioni relazionali sono in numero 
pari. 

Oltre a ciò non c’è alcun problema a realizzare il 
Not. 

Volendo negare un Or il discorso si fa più delicato. 
L’espressione (A>B) + (B<C) può assumere i valori 
0,-1, -2. Inoltre il valore non può venire previsto a 
priori: dipende dai valori di A, B e C. 

Per rimediare si può usare la funzione segno: 

SGN ((A>B) + (B<C)) assume i soli valori 0 e -1 a 
seconda che l’espressione A>B OR B<C sia falsa o 
vera. 


A questo punto, per effettuarne la negazione, si pro¬ 
cede come prima: IF 1 + SGN ((A>B) + (B<C)) 
THEN... 

Concludo facendo notare come le tecniche illustrate 
permettano di estendere le applicazioni del computer 
verso il campo delle variabili Booleane. 

Infatti è possibile, con le tecniche illustrate e con un 
po’ di attenzione, definire variabili numeriche che assu¬ 
mano i valori 0 e -1 ed utilizzarle in espressioni com¬ 
plesse dell’algebra di Boole. 

Ad esempio: 

A = (B>C) * (COD) * (C=F); 

B = (1 + SGN ((A>C) + (D=F))); 

H = A*B 

e così via. 

Naturalmente, per creare delle espressioni coerenti, 
è necessario prestare molta attenzione agli stessi pro¬ 
blemi che avevamo visto per il Not: bisogna che le 
variabili booleane siano sempre ricondotte ai valori ba¬ 
se 0 e -1, per esempio, attraverso un attento uso della 
funzione segno. 


DEBUG 


Guida e cacciatore 


Il signor Aurelio Fantone scrive per segnalare 
alcuni errori riscontrati nel programma “Guida e 
cacciatore ” per ZX81 pubblicato su Personal 
Software 8-9. 

Alla linea 85 del listato 1 si legge: 

LET X = Q 

ovviamente, poiché sia garantita l’impossibilità di “spa¬ 
rare” due numeri uguali consecutivamente, la linea an¬ 
drà coi corre1 1 

LET Q = X 

Inoltre, nello stesso programma, occorrerà inserire 
una istruzione che impedisca di porre 0 (zero) quale 
“numero da raggiungere” (22 IF Z = 0 THEN GOTO 
15). In caso contrario infatti, già alla prima “mossa” 
con un input (diviso) si conclude banalmente il gioco. 
Similmente, nel listato n. 2 la linea 5 andrebbe così 
corretta: 

LET Z = 1 + INT (RND x 100) 

Sempre nel listato n. 2 è presente un altro errore: 


dando per esempio come primo input 1 e come secon¬ 
do “sparo” 2, sul video appare: 

2 + 2 = 2 

Ciò è dovuto al fatto che con simili input nessuna 
delle condizioni (linee 60-65-70-75) viene a realizzarsi. 

Si pone rimedio a quanto sopra, senza alterare la 
logica del programma, variando la linea 60 nel modo 
seguente: 

60 IF A< = B AND A<=C AND A<= D THEN 
GOTO 200 


Sistemi ridotti 

per il Totocalcio per C64 


Molti lettori ci hanno segnalato malfunzionamenti 
del programma, al quale, in effetti, come segnalatoci 
dall’autore Carlo Sintini, manca la seguente istruzione: 

155 T$(l) = “1”: T$(2) = “X”: T$(3) = “2” 
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PICCOLI ANNUNCI 


Varie 


Vendo listali per tutti i computer compreso per 
BBC, Lynx, Oric 1, Atom, Dragon e tutte le altre 
marche piu famose (Sinclair, Apple, Pet, ecc.). Inol¬ 
tre vendo e cambio oltre 80 programmi per Spec- 
trum. Iacopo Sannazzaro, Via Ginori 11, 50129 Fi¬ 
renze, tei. 287030. 

Compro cassetta Jelli Monsters o scambio con una 
a scelta fra: Road Race, Jupiter Lander, Alien. 
Scambio anche programmi vari. Rispondo a tutti. 
Tommaso Gurrieri, Via Ugo Foscolo 14, 50124 Fi¬ 
renze, tei. 055/700635. 

Vendo computer per scacchi Fidelity Electronics 
modello VSC, 10 livelli con infinito, scacchiera a 
sensori e led, orologio, 64 aperture, 64 grandi parti¬ 
te, parlante, legno pregiato. L. 650.000 (valore L. 
950.000). G.C. Giacobbe. Via Finocchiara 46, 
16144 Genova, tei. 010/825537. 

Vendo TRS 80 livello 2 mod. 1 48 K, Ram 2 drive 
5”, monitor b/n 12”, interfaccia Centronics, cavo 
per stampante e per 4 drive. Eccezionali programmi 
gestionali. Il tutto assemblato in elegante tavolo. 
Mario Bucolo, Via Sottomonte 5, 95030 Pedara 
(CT), tei. 095/915265. 

Vendo Casio FX 702 P mai usato, ricevuto in rega¬ 
lo, garanzia, ottimo prezzo. Adriano Maggi, Via del¬ 
le Rose 5, 20094 Corsico (MI), tei. 02/4405880 

Vendo ancora in garanzia monitor colore 20 pollici 
Sony KX 20 PS 1, L. 1.000.000 trattabili. Eccezio¬ 
nale espandibilità. Riceve Pai, Secam, RGB, 
NTFC. Fabrizio Barducd, Via Cicerone 1, 48015 
Pinarella di Cervia (FtA), tei. 988093. 

Vendo Philips P 2000 T, 16 K RAM, CPU Z80, 
microcassetta digitale, colore, suono, interfaccia 
UHF, monitor floppy disk, RS 232. Completo di ma¬ 
nuali e programmi sviluppati, il tutto a L. 1.000.000. 
Giuliano Franzosi, Via Zuretti 47, 20125 Milano, tei. 
02/6083053. 


Vendo listati per TRS 80 Atari 200/800 VIC 20, 
Apple II, Texas TI 99, Spectrum ZX 81, Pet. Man¬ 
dare L. 1.000 per listino. Cambio anche programmi 
in cassetta per VIC 20. Contattare Massimo Gusso, 
Viale Felissent 32, 31020 Lancenigo (TV), tei. 
0422/62469. 


Vendo “Programmazione del 6502" edito Gruppo 
Editoriale Jackson. Prezzo copertina L. 22.000. Lo 
cedo per L. 16.000. Il libro è nuovo. Stefano Neri, 
Via Rosolina 157, 00010 Villa Adriana (Roma), tei. 
0774/530792. 

Vendo Casio PB 100 + interfaccia a cassette + 1 
cassetta da 90 minuti con alcuni giochi. Il tutto 
(usato pochissimo) a L. 200.000. Paolo Bernardi, 
Via Brandolini d'Adda 20, 31100 Treviso, tei. 
50729. 


Utente Sirius offre scambio esperienze e program¬ 
mi. Salvo Giudice, Via San Pio X 50, 31031 Caera- 
no S. Marco (TV), tei. 0423/858201. 

Vendo per Digital Rainbow 100 Multiplan con ma¬ 
nuale L. 200.000; MBasic (8 bit) L. 150.000; Basic 
86 (16 bit) L. 150.000. Silvia Barzaghi, Via Parini 
42, 21047 Saranno (VA). 

Per computer Atari 400-800 vendo i seguenti pro¬ 
grammi: Pole Position, Qix, Flipper, Soccer, Dig- 
dug, Donkey Kong e molti altri su disco o cassetta. 
Inoltre vendo espansione di memoria da 48 K. Luigi 
Servolini, Via Simone de Saint Bon 25, 00195 Ro¬ 
ma, tei. 06/384488-7581219. 

Vendo videogame Atari con giochi Space Invaders, 
Video Olimpics, Miniature Golf, Bowling, Video 
Chess, Golf, Combat causa acquisto Commodore 
64, il tutto a L 399.000. Franco Francia, Via Cre- 
mosano 6, 20148 Milano, tei. 02/392084. 

Vendo cambio programmi originali americani ed in¬ 
glesi e in particolare giochi per il computer Atari 
400/800 da L. 5.000 a 12.000. Scrivere o telefonare 
alla sera chiedendo di Andrea Vianello, Via S. Polo 
2794, 30125 Venezia, tei. 041/36353. 


Vendo TI 58 C Texas Instruments con biblioteca di 
base. Telefonare ora cena allo 02/718378. Marco 
Dal Monte, Via G.B Nazari 3, 20129 Milano, tei. 
718378. 

Svendo Pac professionale e collaudato (nastro) L 
373 scambi termici HP 85 + ROMS + STAMP 
82905. Calcola K arch. sup. ponti term. verifica sin¬ 
goli locali intero edificio o cambio altri prog. profes¬ 
sionali. Piero Pistoia, Via Mazzolari 2, 56045 Po¬ 
marance (Pisa). 

Compro solo se letteralmente in pezzi o non più 
riparabile: HP 41, stampante per HP 41, HP 85. Ven¬ 
go personalmente a ritirarlo. Pago in contanti. Tele¬ 
fonare dopo le 19. Emilio Guarise, Via Lessona 6, 
20157 Milano, tei. 02/3570014. 

Vendo HP 75 C luglio '83 in condizioni perfette, 
completo di mascherine, manuali, batterie, alimen¬ 
tatore, schede, ecc. Prezzo trattabile listino. Telefo¬ 
nare ore 20-21 Corrado, 06/6170169. 

Compro TS Serie 800 se occasione o macchina 
simile (64 K, 0,5 Mb x 2), perfettamente funzionan¬ 
te e in zona. Gianni Fazzino, Via Manara 4, 21052 
Busto Arsizio, tei. 0331/638511. 

Vendo programmi verifica strutture in muratura me¬ 
todo For in Basic per Commodore 64, Apple II e 
Uro 48 K, garanzia 3 mesi; 150 Setti per N piani, 
tutte le regioni. Mario Gardano, Viale Libia 209, 
00199 Roma, tei. 836459. 

Vendo programmi e progetti su fotocopia per tutti i 
computer pubblicati su: Bit-Personal Software MC 
microcomputer - “32 programmi per Apple”. Prezzo 
L. 2.000 + L. 500 per spese di spedizione. Diego 
Lagunas, Via Nicolò Mauro 24, 31100 Treviso, tei. 
0422/22898. 


Vendo General Processor mod. T con 48 K RAM e 
dischi 8” 1024 Kbytes più stampante Epson MX 
100. Vendo 50 dischi 8” a L. 4.000 l'uno con sopra 
molti programmi e linguaggi (Basic, Cobol, Fortran). 
Graziano Ceccotti, Via Livornese est 124, 56030 
Perignano (PI), tei. 0587/616046 


Apple 


Cambio-vendo programmi per Apple II e Apple He 
di ogni tipo. Gestionali, grafica, ingegneria, game, 
The Last One con manuale in italiano, ecc. Giorgio 
Negrini, Via G. Pascoli 21,46030 Cerese (MN), tei. 
448131. 

Vendo o cambio per Apple 2 programmi, Word Pro¬ 
cessing, Visicalc, Data Base, Utilitis, programmi di 
Copya (Locksmith, Nibbles Away, ecc.) e giochi 
(anche omaggio) a prezzi eccezionali!!! Andrea 
Giacomobono, Via Torbole 6, 00135 Roma, tei. 
3201782 

Vendo a L. 20.000 scheda Controller Drive Stan¬ 
dard Shugart per Apple, Drive a L. 350.000, scheda 
128 K a L. 320.000, tastiera alfanumerica a L. 
130.000. Roberto Pavesi, Viale Giulio Cesare 239, 
28100 Novara, tei. 0321/454744. 

Per Apple con CP/M 56-2.2 vendo Utility Tool per 
potenziare testo e grafica, inedito, possibilità ecce¬ 
zionali, compatibilità totale. Soft 80 col. HRCG Edi¬ 
tor Hard Copy scambio montagne di software. Mir¬ 
co Castellani, Via Ederle 7, 37023 Grezzana (VR), 
tei. 045/907998. 


Cambio software per Apple II. Cerco inoltre perso¬ 
ne disposte a formare un club di Apple in Sicilia. 
Mario Bucolo, Via Sottomonte 5, 95030 Pedara 
(CT), tei. 095/915265. 

Compro per Apple II Language Card e/o scheda 
CPU Z80 in buone condizioni, anche se non origi¬ 
nali Apple; inoltre compro o cambio con software 
fotocopie listato sorgente del DOS 3.3. Mario Buco- 
Io, Via Sottomonte 5, 95030 Pedara (CT), tei. 095/ 
915265. 

Vendo scheda espansione 16 K RAM L. 100.000, 
scheda 80 colonne L. 120.000, scheda espansione 
128 K RAM (DOS trasparente) L. 450.000. Tutto in 


ottimo stato per Apple II Plus. Isabella rag. Bottini, 
Via G. Galilei 681, 18038 Sanremo (IM). 

Cambio-vendo programmi Apple. Inviate lista o te¬ 
lefonate ore serali. Tristano Marchini, Via Rosselli 
6, 58033 Castel del Piano (GR), tei. 0564/955549. 

Vendo programma calcolo e stampa modello 740 
dichiarazione redditi completo di allegati ultra col¬ 
laudato a L. 2.000.000. Funzionante su 4032/4040 
8032/8050 e Apple o Apple II e 2 drive. D Bettin, 
35100 Padova, tei. 049/38678. 

Cerco utenti di Apple II e da tutta Italia per scambio 
programmi. Franco Gasparroni, Via Siena 46, 
63018 P. S. Elpidio (AP), tei. 994633. 

Vendo Apple II Europlus 48 K con 4 manuali e 
imballo originali (+ 50 FTware omaggio) a L. 
1.250.000. Usato pochissimo. Antonio Morsoletto, 
Via Marconi 85, 36077 Altavilla (VI), tei. 0444/ 
981358. 

Scambio software Apple II e cerco fotocopie del 
manuale del gioco Flight Simulator che posso pa¬ 
gare con un programma. Marco Carrubba, Via M. 
Campionesi 29, 20135 Milano, tei. 02/585294. 

Cerco possessori di Apple Personal Computer per 
lavoro di battitura testi preferibilmente zona Milano 
Giorgio Viappiani, Via Argonne 28, 20133 Milano, 
tei. 7384341. 

Cerco persone disposte ad inviarmi programmi di 
qualsiasi genere per Apple II sebbene non possa 
ricambiare che con la mia riconoscenza la vostra 
generosità. Spese postali a mio carico. Maria Gua¬ 
rani, Via Pegora 5, 44042 Cento (FE), tei. 051/ 
906131. 

Scambio corrispondenza con amici Apple II, Scam¬ 
bio anche listati. Inviate la vostra lista e io farò 
altrettanto. Per informazioni telefonare alle ore 10 
al 23041 prefisso 0541 e chiedere di Max. Massimi¬ 
liano Sartini, Via dei Mille 52, 47037 Rimini (FO), 
tei. 0541/23041. 

Software Apple II Plus documentato ed utilizzabile 
compro-cambio-vendo. Esclusi giochi, Attivare con¬ 
tatto per liste particolareggiate. Anna Di Palma. Via 
Roma 124, 80030 Cimitile (NA) 

Cambio-vendo programmi di ogni tipo per Apple II. 
Assicuro massima serietà. Cerco, inoltre, scheda 
Z80 da scambiare con equivalente in programmi. 
Michele Piscopo, P.za Marconi 9, 66013 Chieti, tei. 
0871/582283. 

Apple II, AIM 65 fotocopie cerco urgentemente: 
schemi elettrici, programmi Monitor e Applesoft Ba¬ 
sic (Listing). Rimborso spese. Gianluca Sartori, Via 
Ungaretti 1, 31055 Quinto di Treviso (TV). 

Vendo per Apple II 1 scheda Language Card L. 
118.000; 1 SCH 80 col. L. 125.000; 1 SCH 80 col. 
(CP/M e Pascal compatibile) L. 250.000; 1 SCH 
interfaccia parallela tipo Centronics L. 75.000 otti¬ 
mo stato. Rag. Isabella Bottini, Via G. Galilei 681, 
18038 Sanremo (IM). 

Vendo Language Card originale per Apple II e com¬ 
patibili (prezzo di listino L. 352.000 + IVA) a L. 
175.000. Vendo anche a mezzo postale. Tiziano 
Settimi, Via XXIV Maggio 30, 20010 Canegrate 
(MI), tei. 0331/400303. 

Vendo software per Apple: Lock Smith, The Last 
One, Tasc Compiler, Paghe-Stip, Data Base Ma- 
nag. Sisl. Bollett. Fatt., RTTY (RX/TX), CW, Mail¬ 
box, Stazione radioamat., SSTV, Superscript. a 
prezzi d'elimin.ne. Stella Pietro, Via Visca 28, 
67100 L'Aquila, tei. 23273. 

Per Apple vendo scheda sintesi vocale per fonemi 
a L. 80.000. Luciano Bellotto, Via S. Pietro 10, 
10034 Chivasso (TO), tei. 011/9111219. 

Vendo Apple II Plus completo di potentissimi pac¬ 
kage di Word Processor, Data Bases, Professional, 
Teleprocessor, Grafica, Linguaggi, Compilatori, 
Commerciali, Ingegneria, Utility e numerosissimi 
giochi (Visitile, Visidex, Visicalc, Visiterai, CCA, 
DMS, PDB, Ptero, Prowriter, Graforth, Apple Plot, 
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Il più Venduto negli Stati Uniti 
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Coleco Vision 

i nuovissimi 
Video Gcinies, 
ad alta risoluzione 
grafica, 
pronti per Voi! 

a casa 

vostra subito ! 

EXELCO 

Via G. Verdi, 23/25 

20095 - CUSANO MI LAN INO (MILANO) 


CARTUCCE SERIE ARGENTO 


contro assegno, al seguente indirizzo: 


i tabella, a mezzo pacco raccomandato. 


Nome 


Cognome 


Via 

Città 

Data 



Descrizione 

Codice 

Qt. 

Prezzo 

unitario 

Totale 

L. 

Consolle con cartuccia Mouse Trap 

68/8600-00 


485.000 


Modulò convert. ATARI 

68/8601-00 


169.000 


Modulo Turbo 

68/8602-00 


130.000 



Donkey Kong 

68/8610-00 


92.000 


Smurf (Puffi) 

68/8610-01 


92.000 


Zaxxon 

68/8610-02 


99.000 


Venture 

68/8610-03 


92.000 


Wizard of wor 

68/8610-04 


77.000 


Gorf 

68/8610-05 


77.000 


Mouse Trap 

68/8610-06 


77.000 


Carnivai 

68/8610-07 


77.000 


Cosmic Avenger 

68/8610-08 


77.000 


Lady Bug 

68/8610-09 


77.000 
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Sarà data precedenza alle spedizioni, se assieme all'ordine verrà incluso un anticipo di 
almeno L. 10.000 

I prezzi sono comprensivi di IVA. Aggiungere L. 5.000 per il recapito a domicilio. 
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a divij>iOn Or GAC 


NEL 1983 LA SEIKOSHfì PER PRIMR AL MONDO 
E' IN GRADO DI PRESENTARE LA NUOVA STAMPANTE 
GRAFICA A SETTE COLORI. 

RIUNITE IN UN APPARECCHIO PRATICO E COMPATTO 
LE CARATTERISTICHE DELLA STAMPANTE E DEL PLOTTER, 
LA SEIKOSHA INVENTA UN NUOVO TIPO DI PERIFERICA 
CHE BEN PRESTO SARA' INSOSTITUIBILE. 


REBIT COMPUTER E' ORGOGLIOSA DI LANCIARE 
QUESTA NOVITÀ' ASSOLUTA SUL MERCATO ITALIANO 
AD UN PREZZO MOLTO, MOLTO COMPETITIVO: 

MENO DI UN MILIONE. 

MENO DI UNA COMUNE STAMPANTE IN BIANCONERO. 


RE 

B 

IT 

COMPUTER 


Graphic 


Color 


Printer 


SEIKOSHA 


QUANTI COLORI 
HA LA TUA 
STAMPANTE 


REBIT COMPUTER - Divisione della GBC Italiana S.p.A. - 

20092 CINISELLO BALSAMO ■ TU 330028 GBCMIL - Casella Postale 10488 MI 











IL BASIC E LA GESTIONE DEI FILE 

Il libro si rivolge in modo particolare a chi già conosce il Basic e 
desidera poter realizzare programmi che prevedano l'uso di 
file residenti su disco. Dopo aver preso in esame, utilizzando 
numerosi esempi pratici, le particolarità del Microsoft, si pas¬ 
sa alla descrizione delle istruzioni necessarie ad una corretta 
gestione dei file su disco, sia ad accesso diretto che sequenzia¬ 
le. Una terza parte del libro è infine interamente dedicata alla 
esposizione dei metodi pratici per l’uso dei file ad accesso 
diretto e dei data base 

Cod. 515H L. 11.000 Pagg. 164 


50 ESERCIZI IN BASIC 

Una raccolta completa e progressiva di esercizi riguardanti 
matematica, gestione, ricerca operativa, gioco e statistica. 
Ciascun esercizio proposto comporta l'enunciazione e l'analisi 
del problema, la risoluzione mediante flow-chart e commenti, 
cosi come un programma che implementa la soluzione. Illu¬ 
strato da semplici esempi rappresentativi. 

Questo metodo mette in grado il lettore di verificare passo 
passo le sue conoscenze e il livello di apprendimento raggiun¬ 
to. 

Cod. 521A L. 13.000 Pagg. 208 




75 PROGRIimmi 
in RHSIC 


□ Pagherò al postino il prezzo indicato + l. 2.000'*per contributo fisso spese di spedizione 

□ Allego assegno n # .di L. 

Data.Firma. 


Indirizzo 


Cap»Città 

Provincia- 

Codice Fiscale (Indispensabile per le aziende) 


Inviatemi I seguenti libri: 


Codice 

Libro 


Quantità 


Codice 

Libro 


Quantità 


Codice 

Libro 


Quantità 


Codice 

Libro 


CEDOLA 

DI COMMISSIONE 
LIBRARIA 

Ritagliare (o fotocopiare) 
e Inviare a 

Gruppo Editoriale Jackson 
Via Roselllnl, 12 - 20124 Milano 


Nome e Cognome 


DIVISIONI UIIHI 


























































